Macro for inserting rows w/ data works fine for 4iterations, but skips updates in 5th

Hi,

I have a sheet with 4 line items with various values. For ex.

A B
Apples 4
Apples 6
Orange 8
Berry 9
Cherry 2
Cherry 6

I had to come up with a macro that gets the last occurrence of each of these items and go to the row next to the last occurrence; insert a new row, and update the values from the rows above. My macro runs fine for 4 continuous iterations. But, in the 5th iteration, the last line item is not taken into the calculations.

Any help on how this can be resolved and to find the cause of it is greatly appreciated.

Many Thanks!

Here it is...attaching the workbook!!

Thanks in advance!