Buenas tardes, espero poder contar con su ayuda.

Estoy trabajando con dos libros, mi objetivo es pasar un rango de datos a otro libro sin abrirlo.

Estoy usando esta MACRO, que me ha generado cierto error, y quisiera saber si ustedes me pueden ayudar a resolver.

 

Sub CopiarCeldas()
'Se definen objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Libro Excel destino
Set wbDestino = Workbooks.Open("ruta del libro destino")
'Activarlo
ThisWorkbook.Activate
'Se indican las hojas de origen y destino
Set wsOrigen = Worksheets("datos dinales")
Set wsDestino = wbDestino.Worksheets("1-Info")
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range("B13:CN13")
u = wsDestino.Range("E" & Rows.Count).End(xlUp).Row + 1
Set rngDestino = wsDestino.Range("E" & u)
'Se selecciona 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 xlPasteValues
Application.CutCopyMode = False
'Guardar y cerrar el libro destino
wbDestino.Save
wbDestino.Close
End Sub

Problema

1) error 400 (he desbloqueado el archivo de destino, ya q esta protegido con contraseña, el archivo destino lo he usado como libro Excel habilitado para macros, así también como no. He buscado en la RED posibles soluciones a este error y he probado TODO lo que he encontrado sin poder resolver este conflicto. 

El tema es que si cambio el código y modifico la hoja de destino en una hoja vacía, la MACRO funciona de maravillas

Desde ya muchas gracias a quien pueda orientarme.

Slds

@CSI1981, como no subes tu archivo de ejemplo, voy a intentar hacer de adivino . Una posible fuente del error es esta lçinea:

ThisWorkbook.Activate

ThisWorkBook "NO ES" el libro que abres, siempre ES el libro desde el que lanzas la macro, y puede que el error sea porque intentas pegar en la hoja que no es

Haplox gracias por tu sugerencia

Pero el código funciona, el tema es que los datos que intento traer de la HOJA origen, no se copian en el libro y hoja destino. Pero si hago una modificación en el código y cambio la hoja destino por una hoja en blanco dentro del libro destino, se copian los datos a la perfección.

La hoja destino ya tiene 458 filas usadas, por lo que los datos que traigo del libro origen deben copiarse en la siguiente y así sucesivamente.

Gracias igual por tu aporte, lo probaré por las dudas

Slds

Por lo que creo que se trata de un error en el código dada la cantidad de filas usadas que hay en la hoja destino

Ya que  he probado eliminando filas y funciona.

Seguiré probando alternativas

Muchas gracias por su aporte

Slds

CSI1981