Sub version1()
    Dim WorkSht1 As Worksheet
    Dim WorkSht2 As Worksheet
    ' Лист (Источник) - со сводной таблицей
    Set WorkSht1 = ThisWorkbook.Worksheets("Производители")
    ' Лист (Назначение) - куда делаем вставку
    Set WorkSht2 = ThisWorkbook.Worksheets("Произв. Детализация")
    ' Очистка старой информации на Листе (Назначение)
    WorkSht2.Cells.Clear
    ' Копирование
    WorkSht1.PivotTables("PVT_Произв").PivotSelect "", xlDataAndLabel, True
    Selection.Copy
    WorkSht2.Paste
    Application.CutCopyMode = False
End Sub

Sub version2()
    Dim WorkSht1 As Worksheet
    Dim WorkSht2 As Worksheet
    Dim Rows, Cols As Integer
    ' Лист (Источник) - со сводной таблицей
    Set WorkSht1 = ThisWorkbook.Worksheets("Производители")
    ' Лист (Назначение) - куда делаем вставку
    Set WorkSht2 = ThisWorkbook.Worksheets("Произв. Детализация")
    ' Очистка старой информации на Листе (Назначение)
    WorkSht2.Cells.Clear
    'Соединяю две области сводной таблицы
    WorkSht1.Cells(9, 1) = "Temp"
    ' Получаю область сводной таблицы как текущую
    Rows = WorkSht1.Cells(10, 1).CurrentRegion.Rows.Count
    Cols = WorkSht1.Cells(10, 1).CurrentRegion.Columns.Count
    ' Копирование рассчитанного диапазона ячеек
    WorkSht1.Range(WorkSht1.Cells(1, 1), WorkSht1.Cells(Rows, Cols)).Copy Destination:=WorkSht2.Range("A1")
    ' Очистка технической ячейки
    WorkSht1.Cells(9, 1).Clear
    WorkSht2.Cells(9, 1).Clear
End Sub