Automate Multiple Iterations Of Solver

I am using solver to get a list of values that make up mulitiple known values. I would like to make the code easier to apply instead of copying it and changing it for every cell. Auto Merged Post Until 24 Hrs Passes;

Sub Macro()
SolverReset
SolverOk SetCell:="$F$28", MaxMinVal:=3, ValueOf:="0.002", ByChange:= _
"$F$31:$F$37"
SolverAdd CellRef:="$F$31:$F$37", Relation:=1, FormulaText:="100%"
SolverAdd CellRef:="$F$31:$F$37", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$F$31:$F$37", Relation:=3, FormulaText:="$E$31:$E$37"
SolverSolve userFinish:=True
SolverReset
SolverOk SetCell:="$G$28", MaxMinVal:=3, ValueOf:="0.008", ByChange:= _
"$G$31:$G$37"............................