calculation of profit as per fifo method

i want to put a formula in attached file for calculation of profit as per First in First out method...(FIFO) method...

if is there any vba module you can provide me then also i can manage that one...

any one can help me...?

my sample query data and expected output (profit) manually done in attached sheet....

any help will much appreciated....

Regards
CA Mahaveer Somani