Condicionar una celda según valor de otras

BUenas quisiera plantear una duda y que me ayuden si pueden por favor:

01,02 y 03 son las sucursales de cada local y en un empleado aparece la hora de fichada, dos celdas hacia la derecha la sucursal y yo quisiera resaltar con colores.
Las fichadas aparecen luego de una importación en la celda E. La sucursal en la columna E.Así 4 mas hacia la derecha
Hice esto:
Sub Sucursales()
If Range("G10").Value = 1 Then
Range("E10").Font.ColorIndex = 5
End If
If Range("K10").Value = 1 Then
Range("I10").Font.ColorIndex = 5
End If
If Range("Q10").Value = 1 Then
Range("O10").Font.ColorIndex = 5
End If
If Range("U10").Value = 1 Then
Range("S10").Font.ColorIndex = 5
End If
If Range("G10").Value = 2 Then
Range("E10").Font.ColorIndex = 12
End If
If Range("K10").Value = 2 Then
Range("I10").Font.ColorIndex = 12
End If
If Range("Q10").Value = 2 Then
Range("O10").Font.ColorIndex = 12
End If
If Range("U10").Value = 2 Then
Range("S10").Font.ColorIndex = 12
End If
If Range("G10").Value = 3 Then
Range("E10").Font.ColorIndex = 21
End If
If Range("K10").Value = 3 Then
Range("I10").Font.ColorIndex = 21
End If
If Range("Q10").Value = 3 Then
Range("O10").Font.ColorIndex = 21
End If
If Range("U10").Value = 3 Then
Range("S10").Font.ColorIndex = 21
End If
End Sub

La pregunta seria como hago para que el resto de las celdas sean igual, por que así como en la fila 10 están esos datos puede abarcar de la fila 4 a la 3000.
Gracias, indiquenmen el camino.