[COLOR=DarkSlateGray][B]Sub tata()
Dim i&
[COLOR=Black]With Application: .ScreenUpdating = 0: .Calculation = -4135: End With[/COLOR]
For i = 1 To 1 + (Cells(Rows.Count, 1).End(xlUp).Row - 1) \ 30
Range(Cells(30 * i - 29, 1), Cells(30 * i, 1)).Cut Destination:=Cells(1, i)
Next i[COLOR=Black]
With Application: .Calculation = -4105: .ScreenUpdating = 1: End With[/COLOR]
End Sub[/B][/COLOR]