Extraer rango variable de otro libro

Esta es la macro

Sub copiar()
'Por.Dam
Set h1 = ThisWorkbook.Sheets("Hoja1")
archivo = Application.GetOpenFilename
If archivo = False Then Exit Sub
Workbooks.Open archivo
Set l2 = ActiveWorkbook
Set h2 = l2.ActiveSheet
H2. Range("A10:E48"). Copy h1. Range("A10")
H2. Range("G10:AV48"). Copy h1. Range("G10")
L2. Close
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Hola Dam...

Gracias por responder!!

Algunas cosas que no mencione..

Como hacer para que vaya copiando hacia abajo en la hoja1 donde tengo el código..

Si el libro que abro con la ventana para buscar esta con vínculos y aparece esos mensajes de actualizar , no actualizar ¿como los saco? con el Application.DisplayAlerts = False no me funciona...

Lo ultimo como mostrar en un inputbox los nombres de las paginas del libro buscado para luego elegir y sacar lo datos de esa pagina elegida...

Ej

Se abre la ventana de búsqueda escojo el archivo presiono abrir ahi me tiene que aparecer el inputbox con las paginas supongamos que tiene 3 hojas que de la opción en el inputbox de escoger una luego aceptar y que de esa hoja copie los datos con los rangos y los copie....

Por favor

Gracias de antemano

Una pregunta a la vez.

Para que vaya copiando hacia abajo, sería con esta macro.

Revisa si con screenupdating ya no te aparecen los mensajes

Sub copiar()
'Por.Dam
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = ThisWorkbook.Sheets("Hoja1")
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 10 Then u = 10
archivo = Application.GetOpenFilename
If archivo = False Then Exit Sub
Workbooks.Open archivo
Set l2 = ActiveWorkbook
Set h2 = l2.ActiveSheet
H2. Range("A10:E48"). Copy h1.Range("A" & u)
H2. Range("G10:AV48"). Copy h1.Range("G" & u)
L2. Close
End Sub