Como armar dos acciones en un evento en macro de excel

Quiero armar una macro en el que pueda realizar varias acciones repetidas pero cambiando el rango de origen y de destino dentro de la misma hoja sin repetir el evento change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A4:B8"), Target) Is Nothing Then
With Range("A1:B5")
.Copy Destination:=Sheets("DISTRIBUCION").Range("B5")
End With
Else
Me.Select
End If
End Sub

La parte donde hace el llamado 

If Not Intersect(Range("A4:B8"), Target) Is Nothing Then
With Range("A1:B5")

Debo modificar los rangos de intersect ("A4:B8") por ( "C4:C8") y With range ("A1:B5") por "(C4:C8") pero dentro de la misma hoja varias veces y el .Copy Destination:=Sheets("DISTRIBUCION"). Range("G5") PARA ESTA HOJA

Alguien puede ayudarme