Combine Values & Omit Redundant Data

how much excel can do and the amount of experts that is willing to help out in this forum.

Is there anyway to combine all the values to omit redundant data?

For e.g.

A B
1 Apple 28
2 Pear 55
3 Orange 35
4 Pear 22
5 Pear 15
6 Orange 18
7 Apple 25

is there any VBA codings that could automatically reduced all the above data to

A B
1 Apple 53
2 Pear 92
3 Orange 53