Объединение строк и и сложение данных

[PooTChi]

Доброго времени суток.

Есть таблица, в одном столбце названия машин, в других время работы. Требуется получить общее время работы а/м по каждому дню.
Во вложении сверху пример исходной табл, а снизу то. что должно получиться.
Сижу уже неделю, никак не могу придумать как реализовать(((

P.S.: сложение требуется реализовать при помощи МАКРОСА, НЕ формулой.

Заранее благодарю коллективный разум

[DiemonStar]

Sub Summ()
  I = 1
  While Not IsEmpty(Cells(I, 1))
    If Cells(I, 2) = Cells(I + 1, 2) Then
      For J = 3 To 15
        Cells(I, J) = Cells(I, J) + Cells(I + 1, J)
      Next J
      Rows(I + 1).Delete Shift:=xlUp
    Else
      I = I + 1
    End If
  Wend
End Sub

вот так работает

[staniiislav]

вы так хотели?

[PooTChi]

Спасибо, все работает!

DiemonStar, то что нужно.

staniiislav, немного не то, таблица снизу - это был пример того, что должно получиться. Операции надо было проводить в первой таблица. Но все равно спасибо.