Макрос создания отчетов по клиентам из одного отчета

[Даниил Лайков]

Господа форумчане,добрый день!

Задача следующая:

Имеется отчет со склада,в первом столбце которого указаны клиенты в виде текста, далее в последующих столбцах указывается количество отгруженного товара, дата и тд. Далее этот отчет разбивается на отдельные файлы (отчеты для клиентов),в названии которых необходимо указать клиента (из ячеек первого столбца отчета). Как правило,в первом столбце присутствуют несколько десятков названий клиентов, причем строки с одинаковыми клиентами также присутствуют и необходимо скопировать в новые файлы (отчеты для клиентов) все строки, где указаны эти клиенты, и для каждого из них необходимо создать свой отчет с названием этого клиента и отослать ему.
Можно ли написать макрос, который автоматически создавал бы эти отчеты для клиентов на основе отчета со склада?

Пример во вложении.Спасибо!Большущее!
Примеры того,как изначально выглядит отчет, и как он должен выглядеть,ниже.
Первый файл - изначальный отчет
Второй - это отчет на основе второго

Спасибо большое!!!! огромное-огромное!

[Step_UA]

Можно ли написать макрос ...

можно ... имхо писать на бесплатной основе никто не будет

[Даниил Лайков]

Ну или хотя бы часть..
Идея сама понятна: считывание количества строк (n), далее задание цикла со второй ячейки по n, и сравнение ячейки с предыдущей, и если совпадает - то создание файла с этим названием и просмотр дальше, если не совпадает - то создание файла с новым именем.

помогите,пожалуйста...

[Step_UA]

что конкретно не получается? - показывайте код

... для использования вашего алгоритма необходимо сначала отсортировать таблицу

[Даниил Лайков]

Sub AUTO_SAVE()
With ActiveWorkbook.Worksheets("Готовый" ).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Dim n As Integer, I As Long
n = Sheets("Готовый").Select.Rows.Count
For I = 2 To n
Cells(I, 1).Select
A = Trim(ActiveCell)
c = CStr(A)

If (c + 1 = c) Then
Activebook.SaveCopyAs = c
Else
ChDir "C:\Users\a475qzz\Desktop\Каждоднев ные отчеты"
Activebook.SaveCopyAs = c + 1

End If
Next I
End Sub

[Step_UA]

судя по коду, всё не получается - а это уже из разряда сделайте, а не помогите.