Sub fit()
'
' fit Macro (keyboard shortcut is Ctrl-f)
'
'
    Calculate
    Range("D6").Select
    Selection.Copy
    Range("I6").Select
    Calculate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    SolverOk SetCell:="$B$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$B$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverSolve userFinish:=True
    SolverSolve userFinish:=True
    SolverSolve userFinish:=True
    SolverSolve userFinish:=True
End Sub