Acomodar datos en una columna

Esta macro se parece bastante a la que te hiciera llegar cuando querías copiar varias hojas. Espero que esta también te resulte.
Con Alt+F11 abris el editor e insertá un módulo. Doble clic en él para copiar la macro en la ventana.
Tené en cuenta los siguientes aspectos:
Se lee la Hoja1 y se copia en Hoja2 (modificá esas líneas si necesitás otras)
Ult es la fila desde donde comienza a pegar en la hoja 2, la coloqué en 2 suponiendo que en la 1 tendrás títulos.
También copia las columnas a partir de la fila 2. En todas donde dice Range(A2:A...) debieras modificar si corresponde.
Los Case mencionan las columnas A B C DE y E. Retocá si hiciera falta.
Y listo, si algo no funciona avisame.
Sub CopiaColumnas()
Dim col, final, ult As Integer
col = 1
ult = 2
Sheets("Hoja1").Select
While col < 6
Select Case col
Case 1
final = Range("A65536").End(xlUp).Row
Range("A2:A" & final).Select
Case 2
final = Range("B65536").End(xlUp).Row
Range("B2:B" & final).Select
Case 3
final = Range("C65536").End(xlUp).Row
Range("C2:C" & final).Select
Case 4
final = Range("D65536").End(xlUp).Row
Range("D2:D" & final).Select
Case 5
final = Range("E65536").End(xlUp).Row
Range("E2:E" & final).Select
End Select
Selection.Copy
ActiveSheet.Paste Destination:=Sheets("Hoja2").Range("A" & ult)
col = col + 1
ult = ult + final - 1
Wend
Application.CutCopyMode = False
End Sub
Saludos cordiales, y por favor no olvides FINALIZAR la consulta.,
Elsa