Extract all pivot items/fields from selected cell

[gkaropo]

Hi all,
wondering if there is a way to extract all the information of a selected pivot table cell (powerpivot) with VBA and copy over to a new sheet.
I would like to scroll down a pivot table, select cells, click the button (run code) and it will copy over the information to a new sheet and append as I go.
This information needs to include the selection in the pivot filter, the items in the columns and rows etc.
Of the cell selected.

Thanks


link to file with desired outcome

https://1drv.ms/x/s!AgsUyh0i7varnjW8GujQMBpKzbJU