Inventory Valuation on Weighted Average Cost

Hello Friends,

Can anyone help me with this macros which can calculated Inventory on weighted Average Cost
Here I have attached an example sheet
I have added macros in which I can Calculate Inventory on FIFO Basis but I want cost at Average Cost
I have Excel Formula too which is calculating Average Cost but I want to add same in macros
Because this is just an example sheet but my actual data will have large lines, with excel formula it will go too heavy.

Thank you