При создании "промежуточных итогов" они заменяет исходную таблицу, над которой эти итоги проводятся. Необходимо создать этот итог и перенести его на отдельно создаваемую автоматически страницу.
Выяснилось что это реально реализовать только при копировании исходной таблицы и вставке на новую и уже там производится её предварительная сортировка, подведение Итогов и остальное.
Проблема в том что машина находит в моем коде неизвестную человечеству ошибку, в выявлении которой ОЧЕНЬ ПРОШУ вас посодействовать. Вот код:
авторublic Sub подведение_итогов()
Dim sh2, sh1 As Object
Set sh1 = ActiveWorkbook.Sheets("fs")
Set sh2 = ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
sh1.Range("A10:G100").Select
Selection.Copy
sh.Range("A1").Select
Selection.Sort key1:=Range("c17"), Order1:=xlAscending, header:=xlGuess, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A11").Select
Selection.RemoveSubtotal
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(7), _
Replace:=False, PageBreaks:=True, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=27
End Sub

ругается на строчку: авторsh1.Range("A10:G100").Select с ошибкой "1004: метод Range завершен неверно"!

Я 2 ЧАСА СИЖУ пытаюсь(!!!) это сделать =(

файл работы http://garlp.narod.ru/a/gar_kurs.rar

:D да лело в том что я это просто по втрому разу переписываю. Но ведь ошибко заступоривается именно что ПЕРЕД этими дурацкими недочотами !! так что они тут пока нипричем

и чтоже использовать мне вместо этого SELECT, господа? Оо