Excel VBA Automation for Pivots

I need a vba for binary excel file, which may change data source of all the pivots present in my excel workbook. Although I already have a vba but its increasing the file size 10 times. So my requirements are that the file size should negligibly increase like 20 mb file may become around 21 or 22 mb maybe, and I have to use raw data only so we cant convert the raw data into tables and also I want specific data range to be mentioned in the data sources for pivots like $A$1:$Z$10 and not dynamic data range. Please see attached my dummy data file for reference and my vba code which is working well but increasing the file size 10 times.