¿Cómo hago que una macro se repita para todas las filas?

Hola necesito poner de color VERDE todas las celdas desde F6 hasta F62 y desde G6 hasta G62, si la fecha que salen en la columna F es mayor que una celda que contiene una fecha determinada. Y lo hice así:

Sub Cambiocolor()

If Range("F6") > Range("B2") Then ****El problema lo tengo aquí ya que no se que poner para que sea para todas las filas y no solo F6.
Range("F6:G6").Select
'Aquí doy el color'

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Not Range("F6") > Range("B2") Then
Range("F6:G6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub

Me funciona bien pero solo para esa celda. Ojala me puedan ayudar!

Saludos!