VBA Pivot Table (display by row number)

[fantasylo]

Hi all

I have a VBA code for pivot table. Is it possible for pivot table to display according to row number / same as the source data?

Source data
Month|Activity
Jan|13 Jan 2018: $20 on Basketball
Jan|13 Jan 2018: $10 on Football
Jan|13 Jan 2018: $5 on Tennis
Feb|15 Feb 2018: $1 on Jogging
Feb|15 Feb 2018: $50 on Racing
Feb|15 Feb 2018: $25 on Read
Feb|15 Feb 2018: $40 on Shopping
Mar|18 Mar 2018: $50 on Badminton
Mar|18 Mar 2018: $20 on Running
Mar|18 Mar 2018: $10 on Table Tennis

Pivot Table (Current)

Row Labels
Jan
13 Jan 2018: $10 on Football
13 Jan 2018: $20 on Basketball
13 Jan 2018: $5 on Tennis

Feb
15 Feb 2018: $1 on Jogging
15 Feb 2018: $25 on Read
15 Feb 2018: $40 on Shopping
15 Feb 2018: $50 on Racing

Mar
18 Mar 2018: $10 on Table Tennis
18 Mar 2018: $20 on Running
18 Mar 2018: $50 on Badminton

Grand Total

---------------

Pivot Table (Is it possible to display same as source data sequence?)

Row Labels
Jan
13 Jan 2018: $20 on Basketball
13 Jan 2018: $10 on Football
13 Jan 2018: $5 on Tennis

Feb
15 Feb 2018: $1 on Jogging
15 Feb 2018: $50 on Racing
15 Feb 2018: $25 on Read
15 Feb 2018: $40 on Shopping

Mar
18 Mar 2018: $50 on Badminton
18 Mar 2018: $20 on Running
18 Mar 2018: $10 on Table Tennis

Grand Total

---------------

Appreciate any assistance. Thank you.