Macro en excel

hola, Luis Angel !

prueba con una macro +/- como la siguiente:

Sub Nuevo_arreglo()
Application.ScreenUpdating = False
Dim Fila As Integer, Col As String
Col = "a"
For Fila = 2 To Range(Col & 65536).End(xlUp).Row Step 3
Range(Col & Fila).Resize(, 3).Value = _
Application.Transpose(Range(Col & Fila).Resize(3).Value)
Next
With Range(Col & 2).Offset(, 1)
Range(.Offset, Range(Col & 65536).End(xlUp).Offset(, 1)) _
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Debug.Print ActiveSheet.UsedRange.Address
End Sub

saludos,
hector.

__ OP __

como puedo hacer para extraer
91133067
43
GDL
91133048
54
GDL
91122039
275
GDL
965400223
104
SS

Los datos estan en una sola columna
y lo que quiero que haga es un ciclo para colocar estos datos independientes en columnas
los datos pueden variar en cantidad a veces 20 otras 500, y debe terminar con una tabla dinamica...