Azt hiszem ezt kerested:

Option Explicit

Sub Szamol()
'
' Szamol Makró
'
'
Dim i As Byte
For i = 8 To 61

    SolverAdd CellRef:=Cells(i, 7), Relation:=3, FormulaText:="0,000001"
    SolverOk SetCell:=Cells(i, 8), MaxMinVal:=2, ValueOf:="0", ByChange:=Cells(i, 7)
    SolverSolve UserFinish:=True

Next i

End Sub