Botón para copiar hoja 1 a hoja2

Elsa matilde mi consulta tengo un hoja excel con un botón para copiar ciertas celdas y filas de hoja 1 a hoja 2, la macro asignada puede hacer 3 funciones con un solo click, copiar, limpiar lo capturado en las celdas, y en hoja 2 después de copiar que siga copiando en las filas vacías para no borrar lo copiado en las primeras 12 filas te anexo la macro para saber si se le puede agregar dos instrucciones más, espero haberme explicado, estoy en el camino del aprendizaje con macros gracias juan manuel galvan

 Sub Macro_copiar()
'
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h1.[A4].Copy h2.[A2]
h1.[A8:C8].Copy h2.[B2:D2]
h1.[A9:C9].Copy h2.[B3:D3]
h1.[A10:C10].Copy h2.[B4:D4]
h1.[A11:C11].Copy h2.[B5:D5]
h1.[A12:C12].Copy h2.[B6:D6]
h1.[A13:C13].Copy h2.[B7:D7]
Application.CutCopyMode = False
MsgBox "Copiado"
End Sub