Excel - Copiar datos a un archivo nuevo en la primera fila vacía disponible

Un saludo,

Intento enviar una tabla de datos que se actualiza periódicamente a otro archivo que guarda esta información, la idea es que esa tabla se envié y se copie en la primera fila vacía disponible de la columna A, monte el siguiente código, pero no logro ajustar que copie en la primera fila vacía disponible.

Mil gracias, bendiciones.

Sub CopiarCeldas()

Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range

Set wbDestino = Workbooks.Open("C:\PRUEBA\VARIOS\Test AOP.xlsx") '(ActiveWorkbook.Path & "\Test AOP.xlsx")

ThisWorkbook.Activate

Set wsOrigen = Worksheets("Option 5 (sommaire)")
Set wsDestino = wbDestino.Worksheets("PC5AOP")

Const celdaOrigen = "A1"
Const celdaDestino = "A1"

Set rngOrigen = wsOrigen.Range("A4:AM13")
Set rngDestino = wsDestino.Range("A1:AM10")

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

rngDestino.PasteSpecial xlPasteAll
Application.CutCopyMode = False

wbDestino.Save
wbDestino.Close

End Sub