Excel solver doortrekken in rij

[n00bish]

Hey,

Ik ben bezig met een een solver functie en nu moet ik die door een hele rij doortrekken. Ik heb een andere vraag gelezen waarin een soortgelijke oplossing werd gezocht (http://www.helpmij.nl/forum/archive/index.php/t-283976.html), alleen gaat het bij mij nog net even iets verder. Ik heb geprobeerd om de tips die daar werden gegeven te volgen alleen ik kom er gewoon nog niet uit. Onderstaand is de macro zoals hij voor 1 rij gerecord werd. Is er iemand die mij kan zeggen hoe ik deze functie kan doortrekken voor alle rijen, het had iets te maken met MyRange en AdressLocal. Thanks

 Sub Try()

    SolverReset
    SolverOk SetCell:="$Z$110", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$E$110:$M$110"
    SolverAdd CellRef:="$E$110:$M$110", Relation:=3, FormulaText:="0" 
    SolverOk SetCell:="$Z$110", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$E$110:$M$110"
    SolverAdd CellRef:="$N$110", Relation:=2, FormulaText:="1"
    SolverOk SetCell:="$Z$110", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$E$110:$M$110"
    SolverAdd CellRef:="$A$110", Relation:=2, FormulaText:="$C$110"
    SolverOk SetCell:="$Z$110", MaxMinVal:=2, ValueOf:="0", ByChange:= _
        "$E$110:$M$110"
    SolverSolve
End Sub