подбор можно было делать за курсором. Вы мне создали макрос для показанного примера. Он имеет вид[/P]
Sub recount()
   Set tbl = ActiveSheet.[a5].CurrentRegion
   Set tbl = Range(ActiveSheet.[a6], tbl.Cells(1, 1).Offset(tbl.Rows.Count - 1))

   For Each cell In tbl.Cells
       cell.Offset(, 6).GoalSeek Goal:=1, ChangingCell:=cell.Offset(, 3)
   Next
End Sub

Sub Макрос2()  
Dim Perechen_stavka As Range  
  Dim Perechen_itogo As Range  
  ' присваиваем двум переменным тип диапазон  
  Dim Stavka As Variant  
  Dim Itogo As Variant  
  ' присваиваем двум переменным тип variant  
  Set Perechen_stavka = Range("A6:A89")  
  Set Perechen_itogo = Range("H6:H89")  
 ' присваиваем каждой переменной конкретный диапазон  
  Set Stavka = Range("A6")  
  Set Itogo = Range("H6")  

  ' присваиваем каждой переменной начальное значение - не уверен, что это надо делать честно говоря...  
      For Each Perechen_itogo In Perechen_itogo  
          Range(Perechen_itogo).GoalSeek Goal:=0, ChangingCell:=Range(Perechen_stavka)  
      Exit For  
  Next  

  ' цикл -> обход каждой ячейки в диапазоне и запуск "подбора параметра"  
End Sub