Массив с вариантами уравнений(формул)

[СтаниславАВ]

Тоже не подходит:

    With List_materials
      VB_Smeta_m_full = .Range("A2:AB" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
      VB_Materials_volume = .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value
      VB_Materials_price = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value
    End With
    Sum_mat = 0
     For Mat = 2 To UBound(VB_Smeta_m_full, 1)
        For SV = 1 To UBound(VB_Smeta_full, 1)
          
              If VB_Smeta_m_full(Mat, 2) = VB_Smeta_full(SV, 2) Then
             Sum_mat = Sum_mat + VB_Smeta_full(SV, 4)
             Else
             Sum_mat = Sum_mat + 0
             SV = SV + 1
         End If
        Next
        VB_Materials_volume(Mat, 4) = Sum_mat
     Next

(((

[СтаниславАВ]

    With List_materials
      VB_Smeta_m_full = .Range("A2:AB" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value 'копирую данные в массив
      VB_Materials_volume = .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value
      VB_Materials_price = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row).Value
    End With
    Sum_mat = 0
     For Mat = 3 To UBound(VB_Smeta_m_full, 1)
        For SV = 1 To UBound(VB_Smeta_full, 1)
           
              If VB_Smeta_m_full(Mat, 2) = VB_Smeta_full(SV, 2) Then
             Sum_mat = Sum_mat + VB_Smeta_full(SV, 4)
             Else
             Sum_mat = Sum_mat + 0
         End If
                 
        Next
       VB_Materials_volume(Mat, 4) = Sum_mat
     Next