Подбор параметра для диапазона данных - VB

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

Здравствуйте. Подскажите, как можно сделать макрос для подбора параметров для двух массивов (в одном столбце - целевые ячейки, в другом - изменяемые, целевые ячейки должны принять значение 0.95)
Буду благодарна за объяснения

Решение задачи: «Подбор параметра для диапазона данных»

textual
                            Листинг программы 
                        

                            Sub Test()
  
  Const GoalValue As Double = 0.95  ' <-- change to suit
  
  Dim RngChange As Range, CellChange As Range
  Dim RngGoal As Range, CellGoal As Range
  Dim i As Long
  
  Set RngChange = Range("A2:A5")      ' <-- change to suit
  Set RngGoal = Range("B2:B5")        ' <-- change to suit
  
  ' Main
  For Each CellGoal In RngGoal
    i = i + 1
    CellGoal.GoalSeek Goal:=GoalValue, ChangingCell:=RngChange.Cells(i)
  Next
  
End Sub

                        