Sub RunSCS1Solver()
'
' Macro that runs through the 4-data point solver process.
' By Dave Barkley of EI SPT
'
    Range("J6").Select
    Selection.Copy
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H16").Select
    SolverOk SetCell:="$H$16", MaxMinVal:=2, ValueOf:="0", ByChange:="$J$4:$J$5"
    SolverSolve (True)
End Sub



Sub RunSCS3Solver()
'
' Macro that runs through the 5+ data point solver process.
' By Dave Barkley of EI SPT
'
    Range("J7").Select
    Selection.Copy
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H17").Select
    SolverOk SetCell:="$H$17", MaxMinVal:=2, ValueOf:="0", ByChange:="$J$4:$J$6"
    SolverSolve (True)
    Range("J11").Select
    Range("J11").GoalSeek Goal:=0, ChangingCell:=Range("J10")
End Sub