lcol = Cells(1, Columns.Count).End(xlToLeft).Column
ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC1*RC2*RC" & lcol & "=0,0,1),0)"

Function ReplaceCells$(F$, ParamArray pr())
  Const pt$ = "Cells\(([0-9]+|[a-z]+),([0-9]+|[a-z]+)\)"
  Dim re, i&, j&, p&, ms, rs$, s$
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = pt
  If re.Test(F) Then
    Set ms = re.Execute(F): re.Pattern = "[a-z]+"
    For i = 0 To ms.Count - 1
      s = "R"
      If re.Test(ms(i).submatches(0)) Then s = s & pr(p): p = p + 1 _
        Else s = s & ms(i).submatches(0)
      s = s & "C"
      If re.Test(ms(i).submatches(1)) Then s = s & pr(p): p = p + 1 _
        Else s = s & ms(i).submatches(1)
      F = Replace(F, ms(i), s): s = ""
    Next
    ReplaceCells = F
  End If
End Function

Sub Test()
  Dim s$, lcol
  lcol = Cells(1, Columns.Count).End(xlToLeft).Column
  s = "=IFERROR(IF(Cells(12,1)*Cells(100,234)*Cells(1,lcol)=0,0,1),0)"
  Debug.Print s
  Debug.Print ReplaceCells(s, lcol)
End Sub

lcol = Cells(1, Columns.Count).End(xlToLeft).Column
ActiveCell.Formula = ReplaceCells("=IFERROR(IF((Cells(1,1))*(Cells(1,2))*(Cells(1,lcol))=0,0,1),0)", lcol)

Function СРВЗВЦЕНА(iTbl As Range, iName As Range, nmClmn As Integer, costClmn As Integer, countClmn As Integer)
'iTbl - вся таблица с данными
'iName - наименование продукции, по которому ищем значение (ссылка на ячейку)
'nmClmn - номер столбца с Наименованием
'costClmn - номер столбца с Ценой
'countClmn - номер столбца с Количеством
'номера столбцов задаются относительно Таблицы, а не Листа!
Dim arr()
arr = iTbl.Value
With CreateObject("Scripting.Dictionary")
  For I = LBound(arr, nmClmn) To UBound(arr, nmClmn)
    If arr(I, nmClmn) = iName.Value Then
      If Not .Exists(arr(I, nmClmn)) Then
        .Add arr(I, nmClmn), (arr(I, costClmn) * arr(I, countClmn))
      Else
        .Item(arr(I, nmClmn)) = .Item(arr(I, 1)) + arr(I, costClmn) * arr(I, countClmn)
      End If
      iSum = iSum + arr(I, countClmn)
    End If
  Next
  СРВЗВЦЕНА = .Item(iName.Value) / iSum
End With
End Function