Satır ekle kodunda ki hata

[Ergün GÖKER]

Ekte verdiğim kodda satır ekleme kodudur. Kod diğer sayfada sorunsuz çalışıyor ancak CEZAEMN1 adlı dosyaya aldığım zaman (compile error in hidden modüle: Sayfa15 ) hatası alıyorum bu hatayı gidermemem yardımcı olurmusunuz.
Şimdiden teşekkürler

Private Sub CommandButton5_Click() 'SATIR EKLE
If ActiveSheet.FilterMode Then
    MsgBox "SATIR EKLEMESİ YAPAMAZSINIZ! ÇÜNKÜ SÜZ KONUMUNDASINIZ. SÜZ KONUMUNDAN ÇIKIN VE BOŞ SATIR EKLEYİNİZ.KOLAY GELSİN..", vbInformation, " xxxxx   &   JANDARMA TRAFİK  "
    Exit Sub
End If
Dim d As Worksheet: Set d = Sheets("CEZAEMN1")
Application.ScreenUpdating = False
sd = d.[a65536].End(3).Row
    d.Rows(sd + 1 & ":" & sd + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    d.Range("A" & sd & ":S" & sd).Copy
    d.Range("A" & sd + 1).PasteSpecial Paste:=xlPasteFormulas
    d.Range("A" & sd + 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    d.Range("A" & sd + 1 & ":S" & sd + 1).SpecialCells(xlCellTypeConstants, 19).ClearContents
    d.Cells([a65536].End(3).Row + 1, 1).Select
Application.ScreenUpdating = True
MsgBox "SATIR EKLEME İŞLEMİ TAMAMLANMIŞTIR. BİLGİ GİRİŞİ YAPABİLİRSİNİZ. ", vbInformation, " xxxxx &   JANDARMA TRAFİK  "
End Sub

 

[Asri]

Hücreleri temizleme işleminde bir kriter kullanıyor sunuz.
19 un ne işe yaradığını bulamadım. Bu satırda ne yapmak istiyorsunuz.


d.Range("A" & sd + 1 & ":S" & sd + 1).SpecialCells(xlCellTypeConstants, 19).ClearContents