Sub mrshkei()
Dim arr, arr2, i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A1:B" & lr + 1): k = 1
i = 2: w = 4
For n = 1 To Abs(Int((-UBound(arr) + 1) / 32))
    ReDim arr2(1 To 33, 1 To 2)
    arr2(1, 1) = arr(1, 1): arr2(1, 2) = arr(1, 2)
    For j = 2 To 33
        arr2(j, 1) = arr(i, 1)
        arr2(j, 2) = arr(i, 2)
        i = i + 1
        If i > UBound(arr) Then GoTo 123
    Next j
123
    Cells(1, w).Resize(UBound(arr2), 2) = arr2
    w = w + 3
Next n
End Sub