VBA copy paste

How can I copy the cell F36 to Cells in range?

I have a loop with a lot going on. After calculations, I want to copy cell F36 to cell F15,then add 5 to cell A1, then copy F36 to F16 etc

Any help?

It is hard to explain. I am trying to minimize differences between cells by changing a cell that they are dependent on. It seems like the accuracy of goal seek decreases as loop continues

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

Do you see a reason why the goal seeker only fully minimizes the first iteration and not the ones after?

Sub adf()

    Dim iCol        As Long

     Range("b32").Value = 5
    For iCol = 6 To 7
        Range("C31").GoalSeek Goal:=0, ChangingCell:=Range("F36")
        Cells(15, iCol).Value = Range("F36").Value
        Range("b32").Value = Range("b32").Value + 5
    Next iCol
End Sub