Soru Aktarma hatası

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Range("B" & Target.Row & ":N" & Target.Row).Copy Sayfa5.Range("B65536").End(3)(1, 1)
End If

Yukarıda ki kod ile aktif satırı sayfa5' e aktarıyorum. Ancak aktardıktan sonra da aktarılan satırın silinmesini istiyorum. Bu seferde kodu aşağıda ki gibi düzenliyorum

rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Range("B" & Target.Row & ":N" & Target.Row).Copy Sayfa5.Range("B65536").End(3)(1, 1)
End If
'
sor = MsgBox("Silmek istediğinizden emin misiniz? ", vbYesNo)
If sor = vbYes Then
If Target.Value = "" Or IsNumeric(Target.Value) = False Then MsgBox "hücre boş veya sayısal değil": Exit Sub
If X < 3 Then X = 3
Range("B" & Target.Row & ":N" & Target.Row) = ""
End If
End Sub

Bu seferde satırı siliyor ama aktarmıyor. Rica etsem sağlıklı çalışabilmesi için yardımcı olabilir misiniz?

 

[muysun35]

Private Sub Başındaki "(P) eksik olduğundan olabilir mi?

 

[sirkülasyon]

Yok o kopyalarken eksik kopyalamışım. Özür dilerim