Any ideas why when I do goal seek by setting cell to 0 individually, cell gets set to 0. When I loop, it gets set to a number higher than 0 for different itereations.

Sub counter()
Dim step As Integer

Range("k27").Value = 0
Dim rng As Range, cell As Range

Set rng = Range("F15:F21")
For Each cell In rng


    Range("C31").GoalSeek Goal:=0#, ChangingCell:=Range("F36")
    Range("F36").Select
    Selection.Copy
    cell.Value = Range("F36")

Range("k27").Value = Range("k27").Value + 1

Next cell

End Sub