Macro for purchasing grouped items calulation

Hi everyone,
1.png

I'm looking for a macro to go through a date sorted table and work out a value for the profit.

For example, the macro searches from the last row, goes upwards till it hits "Pears". If the "Buy at" column for the first occurence of "Pears"
is filled, then add that number to the next occurence of a purchase of "Pears" and continue till an occurence of "Pears" has nothing in the "Buy at"
column but an entry in the "Sell at" column. When there is a value there, then the profit is entered in that row, in green (and a loss in red).
It is simply the sum of all buys taken subtracted from the sell price.

This continues upwards through the table. There may be 10 types of fruit listed.

Any advise on how to accomplish this would be appreciated.

Thanks in advance!

James

Hi Arkadi.
The idea is that Pears were bought for £543 on the 13th Jan. Then again for "219 on the 20th Jan. they were sold on the 15th Feb for £315. thus the loss was price sold- total cost or purchase which is £315 -(£219+£543)=-£447 , a loss.
I'll try your code now.
Thanks, speak later!
James

DOH! Sorry I'm an idiot. Didn't see it despite it being in my face. Please ignore the £543 in cell D4. So, total Pear purchases=(£219+£543). They were then sold for £315 on Feb 15th.

Also, should clarify that the £543 should be deleted, it is an error. So we only add the pears (buys) until a value is encountered in the sell column indicating the end of buying, when a calculation can be made for profit.

Thanks Arkadi! Does exactly what I wanted to achieve perfectly. I can now grow the spreadsheet as required. So grateful, have a wonderful day!

Ardaki, small problem (I hope!). I attach a revised image - only "problem seems that if I do another series of buying apples then the total Profit is added to the newly calculated profit (ie the old profit of £2 is added to the new profit of £5, giving £7. Can the new set of apple purchase/sells be reset so it shows profit only from the new buy cycle? 1.png

Strangely, everthing after the 'DIM' part of Dim myDictionary As Scripting.dictionary is highlighted and an error message "User defined Type not defined" is shown in a dialogue box. This did happen with the original code but cleared itself.

Thanks Arkadi. Had to be away/offline suddenly and wanted to say thanks for your efforts