Inventory code to remove duplicates and sum totals

I have a sheet of inventory with product number and quantity. Unfortunately the list contains the same items on different rows. I tried to create a vba code to look up duplicates based on item number and then summing up their quantity and then deleting the second duplicate but it is instead deleting the majority of the list.
Here is the code so far: (don't mind the matchnum as I thought i needed it but didnt use it) (Mainrow=19 because the data starts on row 19)

Please Login or Register  to view this content.

Thanks for your help!

Hi Chilisauce,

You don't want to increment your row indices after deleting a row.

Something like this:

Please Login or Register  to view this content.

Hi Chilisauce,

Glad its fixed and you're welcome!