Sum, Merge, Delete Duplicates

Need a Macro to compare part numbers and if same for 2 or more rows then retain the first Part number and all column data but add together the Qnty and then delete duplicate rows

i.e rows are added and merged only when the part numbers match.

7-23-2013 10-29-02 AM.png

I found this macro which works on the supplied data that came with the macro but not sure how to adapt it for what I need.

Please Login or Register  to view this content.

There are approx. 1-2000 rows of data if that matters.

Thanks

Can this be done with a formula instead of a macro?