Inventory FIFO

Please see attached sheet 'Data' is the inventory details. I need to extract Stock balance base on FIFO method to a new sheet. The result is display in Sheet29.

I am looking can anyone help me for the coding enable to complete the whole statement in one process, instead of breaking into a few sheet after repeat doing the same process. Thank in advance!

I have sets part number in cell column A to filter the stock balance with the FIFI details that copies the range to a new sheet.

Instead of repeating delete those data already extract over new sheet and re-running the process, I would like to look for a code that can help the task just with a click can completed the whole listing.

How can I improve this code?