Say, my program is writing something like this into several cells (range a1:z100 for example).. with vbCrLf

Fruit and Amount

Apple, 500
Apple, 200
Orange, 100
Pear, 100
Apple, 30
Orange, 30

I want to eliminate the duplicates.. and only show the following in that cell.
..Fruit Name -Sum of All the Amount (Count of the Fruit)

Apple-730(3)
Orange-130(2)
Pear-100(1)


Then do the same for all the cells.

I tried to use array, dictionary.. etc. but couldn't find a proper solution.

Please help.