¡qué fenómeno!   Muchas gracias.

Muchas gracias a los dos, me han servido de mucha ayuda y he conseguido solucionarlo. Cierro el tema al haber conseguido la respuesta.

@Janlui Perfecto! Muchísimas gracias Faltaba poner el +1 por lo que veo. Doy por cerrado el tema. Saludos!

Cambia esto en la penultima instruccion  wsHojaOrigen.Range("A2:M" & final_origen).Copy Destination:=wsHojaDestino.Range("A" & final_destino + 1)

@Janlui Documents.rar Aquí lo tienes. La macro que lo ejecuta esta en el modulo 1 del libro ExcelPaq. Saludos!