Solver VBA Loop Basic

Hi, I am trying to get a loop VBA run for a very simple formula. Essentially I have data from B15:Z200, there are lots of formulas inside referencing each other. I want to set the value in column R to be equal to 1 exactly by changing the value in column C and then do this independently for each row.

I have tried some basic code and after playing around I can get it to run for the first row (15) only and then it stops and doesn't loop down to solve the remaining hundreds of rows.

Sub Macro6()
'
' Macro6 Macro
'

'
SolverReset
SolverOk SetCell:="$R$15", MaxMinVal:=3, ValueOf:=1, ByChange:="$C$15", Engine _
:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$R$15", Relation:=1, FormulaText:="4"
SolverSolve
End Sub