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