Группировка значений

[123456678]

Доброго времени суток, уважаемые форумчане!
Есть проблема, которую необходимо решить при помощи VBA, у самого уже крыша съехала, надеюсь на Вашу помощь.
В таблице, в различных столбцах, имеется информация о неком событии (написал так, что хрен поймешь)
Вообщем проще будет понять, увидев, пример во вложении.

Необходимо из данных на листе 1 сделать группировку (как на листе 2),
но отображаться должны и кличка по каждой группе.

Отдельно необходимо по каждому номеру посчитать стоимость всех обращений (на листе 1 в новом столбце G). Желательно напротив каждого обращения. Т.е. должно получится напротив каждой клички "Ширик" должно в столбце G отображаться 3300, а напротив "Тузика" 1800.

Очень надеюсь на Вашу помощь.

[SAS888]

Необходимо из данных на листе 1 сделать группировку (как на листе 2)

Где лист 2 (с желаемым результатом)?

[123456678]

Прошу прощения, изменил фаил. На втором листе группировка, которая выполняется командой Данные-Промежуточный итог, ну или таким кодом:

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Но при таком коде, мы видим только значения столбца 1 и сумму по 6 столбцу, а как сделать что бы отображалось несколько столбцов (при условии что данные в группе по этому столбцу будут одинаковые)

[SAS888]

Посмотрите пример во вложении.
Откройте файл и выполните макрос "Main".
Что именно нужно добавить в итоговые строки по группам я не знаю. Добавил некоторые значения для примера.

[123456678]

SAS888, Вы правильно поняли. Только не совсем понял что именно делал макрос, если не сложно, могли бы Вы добавить Коментарии к коду?
И ещё, есть сложность. что бы в данной таблице, в графе "дата приема" выводилась дата самого раннего приема.
Буду примного благодарен оставленным Вами комментариями к коду!

[SAS888]

Во вложении файл с добавлением требуемых дат в итоговых строках и подробными комментариями.

[123456678]

Огромное спасибо! Буду разбираться.
Пока никак не могу понять как формируются группы внутри таблицы и как можно с ними всеми работать по отдельности.

[123456678]

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

[SAS888]

Пример во вложении. После группировки все видимые (итоговые) строки будут перенесены на лист 2.

[123456678]

И ещё разок доброго времени суток!
в процессе работы столкнулся с одной сложностью.
Таблица для сортировки другая, в ней в столбце, по которому сортируем попадаются пустые строки, и что бы исправить эту проблему в пустые строки подтягивал формулой ЛЕВСИМВ первые 8 символов из соседнего столбца, потом избавляюсь от формул копированием и специальной ставкой (вставить как значения). Дальше сортирую. Но, тут есть одно но, думаю не работает именно по этому, в столбце по которому делаем группировку попадаются не только цифры, но и буквы (которые подтянул формулой) и в связи с этим потом первая строка в столбцах не попадает в группировку и потом полученные группы не поддаются группировке.
Как можно это решить? и можно ли как то?
Если не пользуюсь подтягиванием символов из других столбцов, все работает хорошо.