Sub test()
    
    i =  81  'номер строки где находятся целевые ячейки
    ii =  75  'номер  строки где находится изменяемые ячейки
    a =  4  'номер столбца, с которого необходимо начать подбор параметра целевых ячеек
    aa =  9  ' номер столбца, которым неьбходимо закончить подбр параметра целевых яцеек
     
      For j = a To aa
        Cells(i, j).GoalSeek Goal:= 0 , ChangingCell:=Cells(ii, j)
      Next
      
End Sub
 

 

Private Sub Worksheet_Change(ByVal Target As Range)
ПодборПараметраИмя
End Sub

Sub ПодборПараметраИмя()
     'vrem = Timer
    Application.ScreenUpdating = False ' отключение обновления экрана
    
'    i = 113 'номер строки где находятся целевые ячейки
'    ii = 107 'номер  строки где находится изменяемые ячейки
'    a = 4 'номер столбца, с которого необходимо начать подбор параметра целевых ячеек
'    aa = 9 ' номер столбца, которым неьбходимо закончить подбр параметра целевых яцеек
    
    i = ThisWorkbook.Names("Нулевое").RefersToRange.Row
    ii = ThisWorkbook.Names("Подбираемое").RefersToRange.Row
    For Each j In ThisWorkbook.Names("Нулевое").RefersToRange.Columns
    If Cells(i, j.Column).HasFormula Then
      If Cells(ii, j.Column).HasFormula Then
         AddrCell = Cells(ii, j.Column).Address
         MsgBox "В ячейке  " & AddrCell & " занесена формула. Нужно ее удалить"
      Else
         Cells(i, j.Column).GoalSeek Goal:= 0 , ChangingCell:=Cells(ii, j.Column)
      End If
     Else
         AddrCell2 = Cells(i, j.Column).Address
          MsgBox "В ячейке  " & AddrCell2 & " Нет формулы. Она должна быть!!!"
     End If
   
    Next
    
'     Debug.Print Timer - vrem
End Sub