Подбор параметра для диапазона в соответствии со значением ячейки - VB

Формулировка задачи:

Добрый день!
Подскажите, плз, как решить следующую задачу.
Если значение в ячейке из диапазона <= "0" , то подбор параметра, изменяя соответствующую ячейку в одном диапазоне. Если больше нуля, то подбор параметра с изменением другой соответствующей ячейки. (если денежный поток меньше нуля, то беру кредит, если больше нуля, то возвращаю. получение кредита и возвращение - 2 разные строки соответственно).
Нужно чтобы макрос циклично прошелся по каждому году и подобрал такие параметры, чтобы у меня денег на балансе осталось 1000 (как раз сам подбор параметра).
Для одной ячейки написал (работает):
Sub Кредит()
If Range("O83") <= 0 Then
Range("O105").GoalSeek Goal:=1000, ChangingCell:=Range("O100")
Else: Range("O105").GoalSeek Goal:=1000, ChangingCell:=Range("O101")
End If
End Sub
Соответственно, вопрос - как мне это дело зациклить в рамках диапазонов? Столбец О - первый в диапазоне. нужно до AN. Экспериментировал долго, но ничего не вышло.
Заранее спасибо.

Решение задачи: «Подбор параметра для диапазона в соответствии со значением ячейки»

textual
                            Листинг программы 
                        
                            For i = 1 To CF.Count
    Cash(i).GoalSeek Goal:=1000, ChangingCell:=IIf(CF(i).Value <= 0, GetCredit(i), ReturnCredit(i))
Next