I need to repeat the solver code below over 100+ rows but for the life of my cannot find a solution to cycle through the formulas in the FormulaText fields. I've tried a For loop using Offset but it doesn't like the formula references (cell1 = 1-cell2-cell3). Essentially I need H2, J2 and L2 to be 3 proportions that add to 1. Any hints on what I could use to repeat the code below from row 2 through row 118?

Sub dietmix()
'
' dietmix Macro
'

'

SolverAdd CellRef:="$AD$2", Relation:=1, FormulaText:="3"
SolverAdd CellRef:="$H$2", Relation:=2, FormulaText:="1-$J$2-$L$2"
SolverAdd CellRef:="$J$2", Relation:=2, FormulaText:="1-$H$2-$L$2"
SolverAdd CellRef:="$L$2", Relation:=2, FormulaText:="1-$H$2-$J$2"
SolverOk SetCell:="$AC$2", MaxMinVal:=1, ValueOf:=0, ByChange:="$H$2,$J$2,$L$2" _
, Engine:=2, EngineDesc:="Simplex LP"
SolverSolve

End Sub