А если сначала значения, а затем форматы? Да еще ширину столбцов до кучи?  
В три этапа...

Видимо я криво написал :)  
Стиль РТ, это такая штука, которая не сохраняется при вышеуказанных способах копирования-вставки...  
В этом и вопрос...  
 
ЗЫ. Если Вы никогда им не пользовались, то поясню: Сохраняется всё кроме заливки и шрифта, т.е.ширины столбцов трогать не надо!..

Лузер™, Вы меня прям в тупик ставите...  
Я сотню раз пытался сохранить как есть, не получалось...  
Сейчас всё как по-маслу...  
Дома правда 2003, всё сохраняет...  
Давайте я завтра с работы файл выложу, может и там всё просто? :)

{quote}{login=Лузер™}{date=17.12.2009 09:59}{thema=}{post}За 2007 не отвечу, но завтра тоже попробую. Я именно таким способом формирую отчет на базе сводной и по почте его. Со сводной он весит десяток метров, а так десяток килобайт. Да и не к чему контрагенту видеть все данные ;){/post}{/quote}  
 
Аналогично, Шеф, и я Вас вижу (цитата) :)  
Я тоже забочусь о трафике и конфеденциальности :-)

{quote}{login=Serge 007}{date=18.12.2009 04:01}{thema=}{post}Вот файл. Ни фига не сохраняется :(  
На листе "Из_1C" цветная сводная.  
На листе "Из_1C(после SP)" то что получается если применить SP "значения и форматы".{/post}{/quote}  
Файл Лузер™ (85023) и родной, и *.xlsm, *.xlsx - все делается в два хода (как писал раньше) и 2003, и 2007, и 2010. Заморочка с вашим пользовательским стилем PT и еще чем-то (не разбирался, хотя какая-то бяка мелькнула)...    
Z.

{quote}{login=Serge 007}{date=18.12.2009 05:14}{thema=}{post}  
В файле от Лузер™ потому и работает, что он в 2003, а в этой версии экса нет стилей, есть вручную раскрашеная сводная...{/post}{/quote}Я не вручную красил. в 2003 есть Сводная - Формат отчета. Я его использовал. Там десяток вариантов оформления, ткнул в первый попавшийся.  
Файлик post_85245.xlsx Только в понедельник гляну. Дома 2007 не ставил.

дай думаю попробую гуглю для этого вопроса    
ввел в строку поиска - "сохранить Стиль сводной таблицы"  
 
получил    
"Для преобразованных ячеек сохранится форматирование, однако стили сводной таблицы будут удалены, так как эти стили могут применяться только к сводным таблицам."  
 
как думаете это ответ на вопрос?

Попробовал на 2007 - результат - стиль не сохраняет:(  
Решения не знаю, установил совсем недавно и где что порыто:(((

Можно копированием каждой ячейки:  
 
Sub CopySelection()  
   ' --> Куда копировать  
   Const ShTo = "Лист1"  
   Const RngTo = "A1"  
   ' <--  
   Dim Rng As Range, r&, c&, rs&, cs&  
   Set Rng = Intersect(Selection, ActiveSheet.UsedRange)  
   rs = Rng.Rows.Count  
   cs = Rng.Columns.Count  
   With Application  
     .EnableEvents = False  
     .ScreenUpdating = False  
     With Sheets(ShTo).Range(RngTo).Resize(rs, cs)  
       Rng.Copy  
       .PasteSpecial xlPasteColumnWidths, xlNone, False, False  
       For r = 1 To rs  
         For c = 1 To cs  
            Rng.Cells(r, c).Copy .Cells(r, c)  
         Next  
       Next  
     End With  
     .EnableEvents = True  
     .ScreenUpdating = True  
   End With  
End Sub

{quote}{login=Михаил}{date=20.12.2009 05:55}{thema=}{post}А вариант, сразу после вставки, с вкладки "Главная" - "Форматировать как таблицу" не устраивает? Там тоже куча всяких форматов, два клика мышкой....{/post}{/quote}  
 
Как вариант...  
Хотя всё-равно двойная работа :-)

Вот какая штука выходит. Если сводная имеет фильтр отчета (область страницы в 2003), то "на месте" ее никак не скопировать. А если не имеет, то копируется на ура вместе с форматированием. Диапазон тогда соответствует .TableRange1.  
Серж, оно Вам нужно? вот это:  
 
Цех (Все)  
Валюта (Все)

Тогда примерно так.

{quote}{login=Лузер™}{date=21.12.2009 12:34}{thema=}{post}Тогда примерно так.{/post}{/quote}  
 
Лузер™, а можно просто код выложить, без файла?  
Я 2007 не могу открывать, хотя у самого 2007 :(((

Файлы 2007 открывать не могу...