Makroda Hata

[karakeder]

Merhabalar ben bir makro oluşturdum. Fakat makroyu çalıştıran düğmeye bastığımda aşağıdaki mesajı veriyor

Run-time error '1004'

Worksheet sınıfının paste yöntemi başarısız

aşağıda yaptığım makro mevcut yardımcı olabilirmisiniz neyi yanlış yapıyorum?

Sub KASA()
'
' KASA Makro
' Makro jale tarafından 12.06.2008 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+W
'
Rows("4:37").Select
Selection.Copy
Sheets("YTL").Select
Selection.AutoFilter Field:=6, Criteria1:="="
Range("A516").Select
ActiveSheet.Paste (burayı işaretliyor hata olarak)
Range("C538").Select
Sheets("KASA").Select
Range("C30").Select
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=12
Rows("42:54").Select
Selection.Copy
Sheets("EURO").Select
Range("A26").Select
Selection.AutoFilter Field:=6, Criteria1:="="
Range("A26").Select
ActiveSheet.Paste
Range("D56").Select
Sheets("KASA").Select
Range("C59").Select
Application.CutCopyMode = False
Rows("59:72").Select
Selection.Copy
Sheets("USD").Select
Selection.AutoFilter Field:=6, Criteria1:="="
Range("A56").Select
ActiveSheet.Paste
Range("D77").Select
Sheets("KASA").Select
Range("D70").Select
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-57
Rows("5:37").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-3
Rows("4:37").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Rows("42:54").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Rows("59:72").Select
Selection.ClearContents
Range("C69").Select
ActiveWindow.SmallScroll Down:=-60
Range("C6").Select
End Sub

 

[karakeder]

Ekte Örnek Dosya Mevcut