Ingresar datos en varias hojas Excel simultáneamente en diferentes celdas

Hoja 1

Hoja 1 rango (c2:g4) pasarlos a hoja 2 rango ( f3:j6)

Hoja 1 rango ( a4: d7) pasarlos a la hoja 2 rango ( c4:f7)

Y otro montón de rangos de la hoja 1 a la hoja 2

Un solo rango lo sé hacer, pero no sé si tengo que quitar o poner algo de la acción para introducir más rangos.

Esta es la acción que utilizó, acoplandola

a mis celdas, rangos y hojas .

If Not Intersect(Range("A1:B5"), Target) Is Nothing Then
With Range("A1:B5")
.Copy Destination:=Sheets("Hoja2").Range("C1")
.Copy Destination:=Sheets("Hoja3").Range("E6")
End With
Else
Me.Select
End If

Mi pregunta es : ¿Tengo qué introcir para cada rango de la hoja 1 todo el comando? ¿Me sobra algo? ¿Me falta algo?.

Os agradecería mucho vuestra ayuda. Me estoy volviendo loca, haciendo pruebas.

Mi agradecimiento por delante.