Hola de nuevo pidiendo un poco mas de ayuda

Quiero copiar los datos que tengo en la hoja clientes a otro libro que tiene también una hoja con el mismo nombre
sin que se dupliquen los datos, que si tiene un dato nuevo se pueda copiar sin repetir todo
Tengo una macro la cual me copia todo repitiendo los datos y el encabezado
haber si alguien me puede echar un cable

Solo puedo subir un archivo, pero los son iguales

Gracias

Factura1.xlsm

Tengo esta formula pero me da error y no se si me valdría para lo que estoy buscando

el error me lo da en rngOrigen.Select

Sub CopiarCeldas2()
 
'Definir objetos a utilizar
Dim wbDestino As Workbook, _
    wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range
     
'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open("E:\Factura\Factura2.xlsm")
 
'Activar este libro
ThisWorkbook.Activate
 
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Clientes")
Set wsDestino = wbDestino.Worksheets("Clientes")
 
'Indicar la celda de origen y destino
Const celdaOrigen = "A1"
Const celdaDestino = "A1"

 
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range("A1").End(xlDown).Offset(1, 0)

 
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
 
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteAll
Application.CutCopyMode = False
 
'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close
 
End Sub
 

Solucionado