Automatic goal seek for certain cells

[Mr Chem Eng]

Hi I couldn't find a similar topic for this question, so sorry if one already exists.

I am trying to do a goal seek 100 times if a certain condition is true.

The first goal seek is on cell R104, where the target value is R103 and the variable cell is Q104. The next goal seek is cell R110, target value R109 and variable cell Q110. I.e. the target cell, variable cell and goal seek cell moves 6 cells down. This needs to happen 100 time until target cell R698.

It is probably a really simple problem but I am very lost with loops. If anyone could help me that would be fantastic!

Thanks.

 

[Mr Chem Eng]

Edit: here is the code I have so far for this loop.

Dim i As Long

For i = 1 To 100
equation = Range("R104").Offset(6, 0).Value
variable = Range("Q104").Offset(6, 0).Value
target = Range("R103").Offset(6, 0).Value
'goal seek
equation.GoalSeek goal:=target, ChangingCell:=variable
Next¸