veri aktarmada makro hata veriyor

[bisusya1]

lütfen ekteki debugı çözermisiniz. 2 haftadır uğraşıyorum aynı kodları başka bir sayfada açıyorum çalışıyor. ama ekteki dosyada çalıştıramıyorum... eğer çözerseniz hatam nerede anlatırmısınız lütfen

 

[acemice1]

u = MsgBox("VERLER AKTARILSIN MI?", vbYesNo)
If u = vbNo Then
End If
If u = vbYes Then
Set s1 = Sheets("sayfa2")
Range("b2").Copy
sonsat = s1.[a65536].End(3).Row + 1
s1.Cells(sonsat, 1).PasteSpecial
Application.CutCopyMode = True ( olarak değiştirmeyi deneyiniz)
MsgBox ("veriler aktarıldı!")

End If

End Sub

 

[bisusya1]

acemice1
ayrıca macroyu çalıştırdıktan sonra excel dosyası ctrl+alt+ delete ten başka bir yoşşa kapanmıyor.


Application.CutCopyMode = True olarak denedim olmadı.