Преобразовать сводную таблицу в диапазон значений

[myfirsy]

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

[Igor1961]

Попробуйте так:

Sub Макрос1()
    Worksheets("Сводная").Activate
    Worksheets("Сводная").UsedRange.Copy
    Worksheets("Копия").Activate
    Worksheets("Копия").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub

[myfirsy]

Спасибо большое, удалось адаптировать под себя