Sub Добавить_суммы_под_таблицей()
    Dim arrHeaders(), Rng As Range

    With Worksheets("Result")
         arrHeaders = Array("Net Weight Parts per PackageID", "Net Weight per HU", "Packaging Material Weight p HU", "Gross Weight per HU2", _
            "Вес упаковки", "Вес паллет", "Вес брутто без паллет", "кол-во упаковок", "кол-во паллет")
        For Each v In arrHeaders
            Set Rng = .Rows(1).Find(v, , xlFormulas, xlWhole)
            If Not Rng Is Nothing Then .Cells(.Cells(.Rows.Count, Rng.Column).End(xlUp).Row, Rng.Column).FormulaLocal = "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;[" & v & "])"
        Next v
    End With
End Sub