VBA To Expand Pivot Table and Copy Pivot Items

Gents/Ladies,

What I am trying to get my head around is with this situation:

I am trying to create an automated function to expand the first 5 pivot items and copy it's respective descriptions and paste it in another sheet.

I have written the following codes but the problem is my pivot items are dynamic, they could change i.e. it may be called Alpha today , tomorrows data feed could be Bravo.

How can I modify it so that it could cater to any pivot items? Thanks in advance !

Please Login or Register  to view this content.

Sample2.xlsx

b.u.m.p

b.u.m.p