VBA Copy/Paste from PivotTable to regular table

[Rhodan]

Hi folks,

See this as a cry for help from a noob, hoping you can help me with the following VBA/Macro question

I am trying to piece together a macro which will copy data from a pivot table into a regular table at the click of a button

Source:
Worksheet name: Import_Skill
Pivottable name: PivotTable1
Pivottable type: Report type set to Tabular Report

Destination:
Worksheet name: Table
Tablename: Table1

Table1 has the same column headernames as the pivot table.

Basically what I am trying to do is copy the data from the tabular pivot table as values only in the regular table , in the next available empty row.
I've been at this for hours now and I am either hopelessly over-engineering this ( with nothing to show for it ) or just hopeless fullstop

Any help would be welcomed!

 

[Truiz]

Not being able to look at your table I think this should work in case it does not you need to play with the offset

Sub VCPFPTRT()


LastRow = Sheets("Table").ListObjects("Table1").Range.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    
TC = Sheets("Table").ListObjects("Table1").ListColumns(1).Range.Column


Sheets("Import_Skill").PivotTables("PivotTable1").TableRange2.Offset(4, 0).Copy
Sheets("Table").Cells(LastRow + 1, TC).PasteSpecial xlPasteValues


End Sub