Macro in Excel

[nielsss]

Ik heb de volgende macro gemaakt in excel:

Sub Solver()
'
' Solver Macro
' De macro is opgenomen op 28-9-2006 door Maarssenbroek.
'
' Sneltoets: CTRL+q
'
SolverReset
SolverOk SetCell:="A185", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"A186:A188,A190"
SolverAdd CellRef:="A187", Relation:=3, FormulaText:="A186"
SolverAdd CellRef:="A188", Relation:=3, FormulaText:="A186"
SolverAdd CellRef:="A190", Relation:=3, FormulaText:="A187"
SolverAdd CellRef:="A190", Relation:=3, FormulaText:="A188"
SolverAdd CellRef:="A190", Relation:=3, FormulaText:="A191"
SolverAdd CellRef:="A191", Relation:=3, FormulaText:="A189"
SolverOk SetCell:="A185", MaxMinVal:=3, ValueOf:="0", ByChange:= _
"A186:A188,A190"
SolverSolve
End Sub

Nu wil ik graag dat hij verder gaat met kolom als ik in cell B185 sta. Hoe doe ik dit?