Sub AKTAR()

    Dim Sht As Worksheet, ShtHdf As Worksheet

    Dim i As Long, SonStr As Long, say As Long

    

    Application.ScreenUpdating = False

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

    Set ShtHdf = ThisWorkbook.Worksheets("SIRALAMA")

    

    ShtHdf.Range("A2:L" & Rows.Count).Clear

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

    say = 2

    If WorksheetFunction.CountA(Sht.Range("A2:A" & Rows.Count)) = 0 Then GoTo son

    For i = 2 To SonStr Step 12

        ShtHdf.Range("A" & say & ":L" & say).Value = Application.Transpose(Sht.Range("A" & i & ":A" & i + 12).Value)

        say = say + 1

    Next

    MsgBox "bitti"

son:

      Application.ScreenUpdating = True

    Set Sht = Nothing: Set ShtHdf = Nothing

End Sub