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