Excel fornisce di suo una funzione trasponi ceh assolve egregiamente il suo compito, ma a me serviva una che spostasse i contenuti che si trovavano su un'unica rica in colonne per intervalli predefiniti. Quindi:

Sub lfTransp()
Dim i, r, c As Integer
    i = 1 'numero di celle da elaborare
    r = 1 'riga di partenza
    c = 5 'intervalli di colonne da trasporre
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    For i = 1 To 8200
        ActiveSheet.Range(Cells(1, c), Cells(1, c + 3)).Select
        Selection.Cut
        r = r + 1
        ActiveSheet.Range(Cells(r, 1), Cells(r, c + 4)).Select
        ActiveSheet.Paste
        c = c + 4
     Next
     Application.Calculation = xlCalculationAutomatic
     Application.ScreenUpdating = True
End Sub


Questa subroutine sposta da riga a colonna e non il contrario. L'inverso per il momento non รจ ancora implementato.