Sub summ2()
Dim i As Long
Dim j As Long
Dim n As Long
Dim Eda() As String
Dim Kolvo() As Double
i_n = Worksheets("Походный лист").Cells(Rows.Count, 1).End(xlUp).Row
j_n = Worksheets("Походный лист").Cells(1, Columns.Count).End(xlToLeft).Column
i2_n = Worksheets("Итого").Cells(Rows.Count, 1).End(xlUp).Row
ReDim Eda(i2_n)
ReDim Kolvo(i2_n)
For i = 1 To i2_n
   Eda(i) = Worksheets("Итого").Cells(i, 1)
   Kolvo(i) = 0
Next i
For i = 1 To i_n
   For j = 1 To j_n
    For n = 1 To i2_n
      If Worksheets("Походный лист").Cells(i, j) <> "" And Worksheets("Походный лист").Cells(i, j) = Eda(n) Then
        Kolvo(n) = Kolvo(n) + Worksheets("Походный лист").Cells(i, j + 1).Value
      End If
    Next n
   Next j
Next i
For i = 1 To i2_n
   If Kolvo(i) > 0 Then
    Worksheets("Итого").Cells(i, 2) = Kolvo(i)
   End If
Next i
End Sub