Удалить дубликаты и посчитать их сумму

[Pluselectro]

Ув. специалисты, прошу Вашей помощи. Задачу не могу решить уже долгое время. Требуется её решить через VBA.

Суть:
1. С листа "Лист" требуется перенести на другой "Лист1" - колонки "B" и "Е" (порядок куда эти колонки встанут, пока неважен, например в "А" и "В".)
- С этим справится не сложно, но далее идёт яма!
2. Нужно убрать дубликаты у колонки А (до переноса это колонка "В") и суммировать значения всех дубликатов.

Например:
Яблоко 2
Груша 3
Морковь 1
Морковь 2
Гриб 4
Яблоко 6

а на выходе должно получится:
Яблоко 8
Груша 3
Морковь 3
Гриб 4

Помогите с этой задачей, вообще сложно ли это? Я действовал так:
Переношу сначала одну колонку ("В") с первого листа во второй, пытаюсь удалить дубликаты, а потом хотел как-то придумать через сумм если формулу прямо в VBA.

Знаю, что решить это можно руками, раньше так и делалось, только стал зависать эксель на одном из моментов и теперь приходится крайне сложно делать вручную.

[Pluselectro]

На выходе файл (если делать в ручную) выглядит так:

[Aleksandr H.]

Сводная таблица чем не решение?

upd.
Шас более внимательные товарищи о5 забросают меня помидорами - я не увидел фразы о VBA хотя...реализовать сводную через vba ведь не проблема

[IgorGO]

предлагаю в корне поменять порядок действий:
сначала посчитать суммы
а потом удалять дубликаты

потому что если сначала удалить, то потом уже не из чего будет считать суммы

[Pluselectro]

Мне бы рабочий код VBA, который позволял бы удалять дубликаты из столбика по моему файлу. Можно взять просто столбик Е и чтобы удалял, а дальше я постараюсь сам "допилить". Поможете?

upd, нашел формулу

Sub DelDubl()
    ActiveSheet.Range("$A$1:$A$13").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub