estoy tratando de copiar los datos de otra hoja de calculo a mi libro actual, pero me da error al momento de hacer el copiado en mi destino, imprimo mi rango automáticamente y me da el rango, lo inserto de forma manual, pero aun así no lo reconoce
Este es el rango calculado
Este es mi código:
Sub CopyExport()
Dim Origen As Range
Dim Destino As Range
Dim ini As String
Dim fin As String
ini = "A" & (ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row) + 1
fin = "AI"
rango = ini & ":" & fin
MsgBox (rango)
Set Origen = Workbooks("exportD.xlsm").Worksheets("Exportar").Columns("A:AI")
Set Destino = ThisWorkbook.Worksheets("Hoja1").Range("A100880:AI")
Origen.Copy Destino
End Sub
y este es el error que me da: