Buenas Noches

Esta macro me da error cuando la ejecuto por segunda vez en  Range("A" & ultFila).PasteSpecial xlPasteAll 

Private Sub copiarceldas3_Click()
Dim ultFila As Long, _
    wbOrigen As Workbook
    
    
    'Indicar el libro de Excel destino es la única variable que necesitas
    Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm")
    
    'Se saca la celda donde está la última fila que agregaste
    ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row
    
    'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja
    ThisWorkbook.Activate
    Sheets("Clientes").Activate
    
    'Nos vamos a la ultima celda que copiaste para solo seleccionar de ahí para abajo
    Range("A" & ultFila).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    
    'Regresamos al libro destino para pegar los datos
    wbDestino.Activate
    Sheets("Clientes").Activate
    'Aquí le sumamos 1 a la variable de ultFila para pegar en la primera celda vacía
    ultFila = ultFila + 1
    Range("A" & ultFila).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
    
    'Guardar y cerrar el libro de Excel destino
    wbDestino.Save
    wbDestino.Close
    
End Sub

 

 

 

Alguien me podría decir el motivo gracias

Solucionado