Lütfen Yardım Edin!...

[erar66]

Herkese iyi akşamlar.
Aşağıdaki kod hata vermekte ve ben bunu aşamıyorum. Sebep nedir. LÜtfen yardım edin.
Şimdiden çok teşekkür ederim.

Kodun 12. satır hata vermekte (>>"s2.Cells(sat, 1).Resize(, UBound(dizim) + 1).Value = dizim")
Hata mesajı: run time error 1004 application defined or object defined error


Bu kod ile sayfa birde bulunan bir sütunda 21 adet olmak üzere toplam 3 sütundaki 62 veriyi 1'den 62'ye kadar sıralı olarak sayfa 2'ye aktarmak ve satır satır kayıt yapmakta.

Sub aaaaa()
  Dim i%, a%, sat%, sut%, s%, s1 As Worksheet, s2 As Worksheet, dizim()
    Set s1 = Sayfa1: Set s2 = Sayfa2
    sat = s2.Range("A65536").End(3).Row + 1: sut = 1
    For a = 4 To 10 Step 3
        For i = 4 To s1.Range("C65536").End(3).Row
            ReDim Preserve dizim(s)
            dizim(s) = s1.Cells(i, a).Value
            s = s + 1
        Next i
    Next a
    s2.Cells(sat, 1).Resize(, UBound(dizim) + 1).Value = dizim
    Erase dizim: Set s2 = Nothing: Set s1 = Nothing: sut = Empty:
    sat = Empty: a = Empty: i = Empty: s = Empty
End Sub