Problema con excel y las referencias relativas y absolutas de una macro

[marinitao]

Hola, necesito ayuda
Tengo una encuesta que abarca desde A1:H15
, quiero hacer una macro que haga lo siguiente:
1- Seleccione el rango A1:h15 y lo copie
2- Lo pegue en la Hoja 2
3- Regrese a la Hoja 1 borre D1:H15 (que es donde van los resultados numericos de mi encuesta)
4- y lo mas importante la proxima vez la misma seleccion la pegue en la Hoja 2 pero debajo de lo que habia copiado anteriormente, no encima

copio mi humilde macro y ver si uds me dicen donde tengo el error, se que es por las referencias absolutas y relativas, pero no lo entiendo
Range("A1:H15").Select
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("Base Dato").Select
Application.CutCopyMode = False
Range("D1:H15").Select
Selection.ClearContents
End Sub

[abrahamvj]

1- No, no tienen relacion con los rangos absolutos y/o relativos en realidad

2- La grabadora de macros es buena como para iniciarse en el mundo del VBA, pero, no es lo ideal para crear una macros exacta al deseo final

3- Que tal asi:

Worksheets("base dato").Range("A1:A15").Copy Destination:=Worksheets("Hoja1").Range("A65536").E nd(xlUp).Offset(1, 0)
Worksheets("base dato").Range("A1:A15").ClearContents

Abraham