Unable to Make FIFO Code work If I change text From "Bought" to "Buy"

Hello,
I managed to work out this sample to calculate FIFO (First in First Out) It is working perfectly, thanks to Excel Forum

I Want to change Column H inputs to "Buy" Rather than "Bought" and "Sell" rather than "Sold".
When I replace the Word "Bought" in the sheet Module The formula in column Q no longer works and I get just 0 as a result.

Could someone help me on this?

I am not novice on Codes, But i can copy and Paste)

Thank you In advance

ONP

Hi Glen,
Thank you for the Quick reply. My Bad on L & M

Having done that the results are not the same as my original Sample.
The results should be same as the Original Sample.
Your corrected sample is not giving me correct results.

Thank you
Onp

Ok Solved
Maybe my coffee wasn't strong enough this morning.
I had to change the values in N as well

Thank you Glen