aktarma kodunda hata var

[ozcanya]

Arkadaşlar siteden aldığım daha dohrusu sayın as3434 yazdığı kodları bu dosyaya uyarlamak istedim ama aktarma olmuyor.
yapmak istediğim
1a dan 12 a olan hücreleri
baştan sona kadar yani a5 den af ya kadar aktarma sayfasına göndermek
sizden rıca etsem hata nerede

 

[veyselemre]

Sub aktar()
    Application.ScreenUpdating = False
    DEGER = Application.InputBox("Hangi Değer Aktarılacak?", "ÖZCAN")
    If DEGER = Cancel Then Exit Sub
    Sheets("Ana").Select
    Set sas = Sheets("aktarma sayfası")
    sas.[a5:ad500].ClearContents
    sat = 5
    For s = 5 To [C65536].End(3).Row
        If WorksheetFunction.CountIf(Rows(s), DEGER) >= 1 Then
            Rows(s).Copy sas.Rows(sat)
            sat = sat + 1
        End If
    Next
    sas.Select
    [a5].Select
    Set sas = Nothing
    Application.ScreenUpdating = True
    MsgBox ("Aktarma Tamamlandı.")
End Sub

 

[ozcanya]

teşekkür ederim

kodlar oldu elinizesağlık üstat