Pivot table using vba

I am trying to do a pivot table using VBA.
I have uploaded a sample data sheet and a sample output view.
The only change that I want in the output is I want them to be interleaved.
So I want Units 2014 the Units 2015 then Unit Diff from 2014 ,Unit Diff from 2015 and then % of sales units 2014,% of sales units 2015.
I wasn't able to get it that way in this view.
Also the data set will be much larger so essentially it needs to find the last row on the FY2015 Data sheet and use that as Pivot Data.
I did try to start the code in module1 but am stuck.

Thank you !