Macro para Guardar filas en otra hoja

Ante todo pido disculpas porque no me di cuenta y formule la pregunta en excel en vez de vba. Dicho esto os comento mi problema

Hola a todos, estoy bloqueado, haber si alguien puede echarme una mano. Ante todo gracias.
Necesito una macro para copiar y pegar en otra hoja 15 lineas pero no siempre las ultimas tienen información, y que lo pegue en otra hoja en la ultima fila libre.
Esta es la macro que tengo, lo hace bien pero al seleccionar desde "A10 a G24 cuando lo pega, pega todas las filas y si no tienen datos cuando pego el bloque me deja los espacios, y el bloque siguiente ,entonces lo pega 3 o 4 filas por debajo de la ultima. La hoja de destino la convertiré en una tabla dinámica y necesito que no queden filas en blanco .
Muchas gracias de antemano
Sub PRUEBA_GUARDAR_RECIBO_LIBROS()
Dim UltLinea As Long
Sheets("RECIBO LIBROS").Range("A10:G24").Copy
Sheets("Hoja1").Activate
UltLinea = Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, Transpose:=False, SKIPBLANKS:=True
Application.CutCopyMode = False
Sheets("RECIBO LIBROS").Activate
Sheets("RECIBO LIBROS").Select
End Sub