Sub Column_Summ_Manager()

'Macros by Roman "Rioran" Voronov
'04.06.2014 for www.excelworld.ru

Application.ScreenUpdating = False 'Отменяем эпилептический припадок для экрана
With ThisWorkbook.Worksheets("Job") 'Работаем только с конкретным листом этой книги

Dim X As Long 'Для перебора строк начальной таблицы, счётчик
Dim Y As Long 'Для перебора строк сводной таблицы, счётчик
Dim W As Long 'Для поиска товара в сводной таблице, счётчик

X = 2 'Начальная позиция в первой таблице
Y = 27 'Начальная позиция во второй таблице

Do While .Cells(X, 1).Value <> "" 'Перебираем строки начальной таблицы
     Do While .Cells(Y, 1).Value <> "" 'Ищем фирму в сводной таблице
         If .Cells(X, 1).Value = .Cells(Y, 1).Value Then 'Если совпадают названия фирмы...
             For W = 1 To 4 'Перебираем товар в сводной, подбираем
                 If .Cells(X, 2).Value = .Cells(Y + W - 1, 2).Value Then 'Если товар совпал, то суммируем всё и уже имеющиеся значения
                     .Cells(Y + W - 1, 3).Value = .Cells(Y + W - 1, 3).Value + .Cells(X, 3).Value + .Cells(X, 4).Value + .Cells(X, 5).Value
                     .Cells(Y + W - 1, 4).Value = .Cells(Y + W - 1, 4).Value + .Cells(X, 6).Value
                     .Cells(Y + W - 1, 5).Value = .Cells(Y + W - 1, 5).Value + .Cells(X, 7).Value
                     Exit Do 'и переходим к следующей стоке начальной таблицы
                 End If
             Next W
         End If
         Y = Y + 5 'т.к. название фирмы через каждые 5 строк. Шаг.
     Loop
     X = X + 1 'Счётчик для строк начальной таблицы
     Y = 27 'Обнуляем счётчик для сводной таблицы
Loop

End With
Application.ScreenUpdating = True

End Sub