Tudom, jó játék ;)

Annyira, hogy nekem is megtetszett:

(Szerintem a verébre ágyúval ehhez a makró)

Sub BontEsTranspo()
Dim szelet As Integer, sor As Integer, oszlop As Integer, i As Integer, Z As Integer
szelet = 50
sor = 0
x = WorksheetFunction.Ceiling([a60000].End(xlUp).Row, szelet)
Z = x / szelet
oszlop = 1
For i = 1 To Z
sor = sor + 1
Range("a" & oszlop & ":a" & szelet).Copy
Range("b" & sor).PasteSpecial Transpose:=True
oszlop = oszlop + szelet
szelet = szelet + szelet
Next
End Sub

szinte ugyanez az algoritmusa a tiédnek is