Macro recuperar datos libroB y copiarlos a libroA

¡Hola!
Muy buenas y gracias a quien me pueda ayudar.
Desearía crear una macro para:
Al abrir un libroA, se copien los datos (el rango no siempre es el mismo por eso quiero copiar toda la hoja) que figuran en la primera hoja (Hoja1) del libroB que está cerrado en la hoja 3 (por ejemplo) del libroA.
He intentado hacerlo con el grabador pero me sale siempre un error:
(Inicio grabación en LibroA, abro el otro archivo LibroB, copio hoja1, pego en hoja3 de LibroA, cierro LibroB y paro grabación).
Y luego al ejecutar la macro me sale el mismo error en esta línea: Windows("LibroB").Activate
No me importa que la macro se active al iniciar (no sé hacerlo con el grabador) o con un botón o simplemente ejecutándola desde el 'programador'.
¿Alguna idea por favor para realizar esto?
Por cierto, este es el código que se me crea al grabar (en Módulo1):
Sub Macro1()
'
' Macro1 Macro
'
'
    Range("A5:P296").Select
    Selection.Copy
    Windows("LibroA.xlsm").Activate
    Sheets("hoja3PRUEBA").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("LibroB.xls").Activate
    ActiveWindow.Close
    ActiveWorkbook.Save
End Sub
Muchas gracias.