Hola
yo utilizo el siguiente codigo
Sheets("Hoja1").Select
Range("A2").Copy
Sheets("Hoja2").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
para que el codigo funcione en A1 y A2 se debe repetir el titulo de la columna.
el codigo baja por la columna A hasta que encuentra la ultima fila con datos y pega en la siguiente fila en blanco
espero te sirva