Copy pivot table values to same worsheet

[DavePower]

Hello,

Is there a possibility to have a VBA/macro which copies only the values (not headers) for all row and value fields within a pivot table (filtered applied) to the same worksheet (paste) starting from a certain cell location.

Thank-you for your help.

 

[Domenic]

The following macro assumes that the workbook running the code contains the pivot table. Change the name of the worksheet, name of the pivot table, and the starting cell location where specified in the code.

Option Explicit

Sub CopyPastePivotTableRange()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") 'change the sheet name accordingly
    
    Dim pt As PivotTable
    Set pt = ws.PivotTables("PivotTable1") 'change the pivot table name accordingly
    
    With pt.TableRange1
        .Offset(1, 0).Resize(.Rows.Count - 2).Copy ws.Range("E2") 'change the starting cell location accordingly
    End With
    
End Sub

Hope this helps!