Excel - Error al exportar solo una fila a otro libro

Hola,
He adaptado este código:

https://exceltotal.com/macro-para-copiar-datos-otro-libro-de-excel/

para exportar datos de un libro de excel a otro cada día (en el siguiente libro en la primera fila libre).
va perfecto, salvo que no funciona cuando solo quieres exportar un registro.

creo que lo que tengo que modificar está aquí:

rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

y sustitur por xlUp, pero no lo consigo. He intentado con esto y tampoco:

Range("A2", Range("Z" & Rows.Count).End(xlUp)).Select
Range("A2", Range("Z" & Rows.Count).End(xlToRight)).Select

¿alguna sugerencia de cómo modificarlo correctamente?

Gracias!