lütfen soruları sorular kısmında açalım
diğer yerlere açtığınız konular dikkatten kaçabilir

---

aşağıdaki yordamı dener misiniz?

Sub ListeAktar()

Dim SonStr As Long

Dim Sht As Worksheet

Dim ShtHdf As Worksheet

Dim Dizi() As Variant

Set Sht = ThisWorkbook.Worksheets("ANA LİSTE")

Set ShtHdf = ThisWorkbook.Worksheets("SIRALAMA")

SonStr = Sht.Cells(Sht.Rows.Count, "A").End(xlUp).Row

StrSay = (SonStr - 1) \ 12 + 1

ReDim Dizi(StrSay, 12)

i = 0

For StrX = 2 To SonStr Step 12



    For StnY = 0 To 12

        Dizi(i, StnY) = Sht.Cells(StrX + StnY, 1)

    Next StnY

    i = i + 1

Next StrX

ShtHdf.Range("A2").Resize(UBound(Dizi, 1), UBound(Dizi, 2)) = Dizi

MsgBox "bitti"

End Sub