Macro para copiar archivo

Buena tarde.
Estoy haciendo una macro en la cual pueda copiar un archivo que utilizo todos los días (Libro A) a otro archivo que utilizo (Prueba) para comparar los datos del primero. El problema es que no logro encontrar con que ciclo puedo trabajar para que al oprimir un botón en el archivo a comparar realice todas los pasos. Adjunto el código con el cual estoy iniciando.
Este código lo que esta haciendo es copiar y pegar en el otro archivo dejándome el cursor en la cuarta fila luego de copiar, necesito que al siguiente día me copie nuevamente abajo de lo que copie el día anterior, así como también los títulos necesitarían un ciclo ya que los títulos del primer archivo (Libro A) no son iguales entonces necesitaría que al siguiente día al copiar me los volviera a colocar en la fila antes del copiado.
Muchas gracias si me puedes ayudar con algo...
Sub Copy()
'Copiar informacion de Archivo Base todos los dias
ChDir "x:\LibroA"
Workbooks.Open Filename:= _
"x:\LibroA"
Sheets("Julio Lam").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:G1000").Select
Selection.Copy
Windows("Prueba.xls").Activate
Range("A2").Value = "Codigo"
Range("B2").Value = "Nombre"
Range("C2").Value = "Zona"
Range("D2").Value = "Tipo Doc"
Range("E2").Value = "No. Doc"
Range("F2").Value = "Fecha"
Range("G2").Value = "Monto"
Range("H2").Value = "Comentario"
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=8
Application.CutCopyMode = False
Range("A" & [A:A].Rows.Count).End(xlUp).Offset(4, 0).Select
Workbooks("unallocated cash.xls").Close SaveChanges:=False
End Sub