Autofill de la ultima linea en grupo de hojas

Hola a todos. A ver si se puede simplificar un poco esto.

Tengo un libro excel con 25 hojas. Cada hoja tiene a su vez 158 columnas.
El caso es que tengo una macro que me traslada datos de un libro externo
a las cuatro primeras hojas de este mediante una macro de copiar y pegar
en la ultima fila vacia:


Sheets("extern").Select
Range("E7:E132").Select
Selection.Copy

Windows("sisele.xls").Activate
Sheets("hoja1").Select

Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True


Y asi con la hoja 2, 3 y 4.

La ultima fila de las restantes 21 hojas (hasta 25) se calcula a partir
de esas. Antes lo hacia seleccionado el grupo, la fila y haciendo
autorrellenar para todas. Despues hice una macro que viene a ser:

With Sheets("distancia1")
Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Resize(, 158)
End With
rng.AutoFill rng.Resize(2)

Y asi distancia2, 3 ,4 y hasta la hoja 25.

Lo que quiero saber es si hay alguna forma de simplificar el asunto

poniendo algo como

With Sheets("distancia1", "distancia2","distancia3",distancia4 etc etc)

Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Resize(, 158)
End With
rng.AutoFill rng.Resize(2)


de manera que el autofill de todas las hojas quede agrupado.


Gracias por adelantado.


Salu2. Martin.