Суммирование данных с разных листов

[S_P_N]

Всем добрый день и хорошего настроения.
Научите пожалуйста
Задача: Получить общие данные в отдельной таблице на новом листе. Есть несколько заказов на продукцию. Номенклатура в заказах может повторяться. Нужно получить общий заказ в таблице такой же формы.

[EducatedFool]

А что делать с повторяющимися данными?

Вот что у меня получилось:

Sub main()
    clearSheet
    On Error Resume Next: Application.ScreenUpdating = False
    Dim sh As Worksheet, ra As Range
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> ActiveSheet.Name Then
            GetSheetRange(sh).Copy Range("a" & Rows.Count).End(xlUp).Offset(1)
        End If
    Next sh
    Range(Range("a2"), Range("a" & Rows.Count).End(xlUp)).FormulaR1C1 = "=row()-1"
End Sub

Sub clearSheet()
    ActiveSheet.UsedRange.Offset(1).Clear
End Sub

Function GetSheetRange(ByRef sh As Worksheet) As Range
    Set GetSheetRange = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 8)
End Function

Пример в файле:

[S_P_N]

Повторяющиеся данные нужно просуммировать

[ZORRO2005]

Во вложении сложение с помощью сводной таблицы и консолидации.

[SAS888]

Посмотрите вложение. Запустите макрос "Main".

[S_P_N]

Сообщение от ZORRO2005

Во вложении сложение с помощью сводной таблицы и консолидации.

Подскажите что делать если заказы будут добавляться?

[S_P_N]

Сообщение от SAS888

Посмотрите вложение. Запустите макрос "Main".

Открыл файл, запустил макрос, выдает сообщение: Run-time error "1004": Метод PasteSpecial из класса Range завершен не верно.

[SAS888]

Открыл файл, запустил макрос, выдает сообщение: Run-time error "1004": Метод PasteSpecial из класса Range завершен не верно.

В Файле проблем нет. Все корректно работает и в 2003 и в 2007. Ищите в другом месте. Ну, да ладно. Посмотрите вложение, в котором нет метода PasteSpecial.

[S_P_N]

Сообщение от SAS888

В Файле проблем нет. Все корректно работает и в 2003 и в 2007. Ищите в другом месте. Ну, да ладно. Посмотрите вложение, в котором нет метода PasteSpecial.

У меня Office 2000, может поэтому некорректно...
В этом фале все отлично, СПАСИБО!
Если заказы будут добавляться, что делать?

[ZORRO2005]

Сообщение от S_P_N

Подскажите что делать если заказы будут добавляться?

Диапазоны взять с запасом.