Copia con rangos variables

Hola a todos:

Espero que me puedan ayudar con el siguiente problema :

Quiero copiar celdas que hay en un archovo y pasarlo a ortro de una hoja con
el mismo nombre pero el rango de la copia puede ser variable.

Por ejemplo:
A partir de los elementos que tengo son:

Libro1 (Setup, Hoja1,Hoja2,Hoja3)
Libro2 (Hoja1,Hoja2,Hoja3)

En el Libro1, Hoja Setup tengo un rango de celdas A2:A11 donde capturo los
rangos de Celdas que hay que copiar y en B2:B11 apartir de cual pegar.

RANGO ORIGEN DESTINO
IN9:IR12 B9
IN15:IR18 B15
IN21:IR22 B21
IN26:IR30 B26
IN29:IR37 B29
IN40:IR42 B40






la copia se repite de Hoja1 a Hoja1, de Hoja2 a Hoja2, etc.

Sub test()

Dim StrFileName As String
Dim StrFileBase As String
Dim StrHoja As String

StrFileBase = ActiveWorkbook.Name ' ASIGNA DEL ARCHOVO ORIGEN
StrFileName = "Libro2" ' NOMBRE DEL
ARCHIVO DESTINO

If ActiveSheet.Name <> "HOJA1" Then ' VALIBA NOMBRE DE LA HOJA
ACTIVA
Sheets("HOJA1").Select
End If

'Range("B6:B15").Select
' Selection.Copy

Windows(StrFileName).Activate ' CAMBIA AL ARCHIVO
DESTINO

If ActiveSheet.Name <> "HOJA1" Then ' VALIBA NOMBRE DE LA HOJA
ACTIVA
Sheets("HOJA1").Select
End If

For Z = 1 To 3

Select Case Z

Case 1
StrHoja = "Hoja2"
Case 2
StrHoja = "Hoja3"
Case 3
StrHoja = "Hoja4"
End Select

Sheets(StrHoja).Select


Next Z

End Sub