Copiar datos de una hoja a otra respetando lineas en blanco

[JSDJSD]

Lo que pretendo es que al darle al boton guardar, me pase los datos de esta hoja

a la hoja ACUMULADO respetando las lineas en blanco y asi sucesibamente cada vez que pulse el boton guardar.

Tal y como lo tengo me lo pasa, pero cuando le doy otra vez me machaca parte de lo

que habia anterior mente.

PRUEBA.xls

[JSDJSD]

Tema solucionado con la siguente macro

Sub Traslado()

Range("A1:E23").Select 'seleccionar rango de los datos

Selection.Copy 'copiar el rango de los datos

Sheets("ACUMULADO").Select ' seleccionar la hoja donde pegar los datos

Range("A3000").Select ' ir a la celda A3000

Selection.End(xlUp).Select 'subir hasta la ultima celda con datos

ActiveCell.Offset(5, 0).Select ' bajar una celda

ActiveSheet.Paste 'pegar los datos

Application.CutCopyMode = False

Sheets("HOJILLAS").Select 'seleccionar la hoja 1

Range("A1:E23").Select 'seleccionar rango de los datos

Selection.ClearContents 'borrar la seleccion

Range("a1").Select 'posicionarse en la celda A1

MsgBox "Traslado finalizada, puede volver a ingresar datos" ' lanzar mensaje de que se ha finalizado

End Sub