For loop - Conditional Formatting

Hi,

Could someone please help me to make a for loop for a Conditional Formatting macro?

Below you see what I'm gona do. But I dont want that to be applied just to G6. I need it in G6-G200 but the "6" in $H6>=$G6 must be change with the row number.
Like G7 would get: Formula1:="=$H7>=$G7"

 Range("G6").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$H6>=$G6"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With

Thanks for the help!