VBA code for summing up duplicates and delete duplicates

[ajcarlos18]

Hi,

I'm reading and using all the codes posted in most of the threads but I still found difficulty in running smoothly in my worksheet. May I ask for your help to formulate a code that will sum up all the duplicates in Criteria Range- column I (it will not include blank spaces) and sum range -column M and eventually deleting all the duplicates. Blank spaces in column I will remain as-is.

Here is the sample of the sheet:

[TABLE="width: 2195"]
<colgroup><col span="3"><col><col span="9"></colgroup><tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[TD] G[/TD]
[TD] H[/TD]
[TD] I[/TD]
[TD]J[/TD]
[TD]K[/TD]
[TD]L[/TD]
[TD]M[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]311199[/TD]
[TD]LIABILITIES[/TD]
[TD]700146[/TD]
[TD]07/18 Bonded Store[/TD]
[TD] [/TD]
[TD]IND / IDN[/TD]
[TD]SRINIVAS[/TD]
[TD]USD[/TD]
[TD]-962.53[/TD]
[TD]1[/TD]
[TD]-962.53[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]311199[/TD]
[TD]LIABILITIES[/TD]
[TD]700147[/TD]
[TD]7/18 BS PROFIT-3M KHO MARK ANG[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]USD[/TD]
[TD]84.56[/TD]
[TD]1[/TD]
[TD]84.56[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]311199[/TD]
[TD]LIABILITIES[/TD]
[TD]700150[/TD]
[TD]7/18 BS-CREW SLOPCHEST[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]USD[/TD]
[TD]-866.09[/TD]
[TD]1[/TD]
[TD]-866.09[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312211[/TD]
[TD]PAINT-HULL,DECK,ENG[/TD]
[TD]900114[/TD]
[TD]Reversal of voucherno: 900097[/TD]
[TD] [/TD]
[TD]B10180058[/TD]
[TD] [/TD]
[TD]USD[/TD]
[TD]1099.6[/TD]
[TD]1[/TD]
[TD]1099.6[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312211[/TD]
[TD]PAINT-HULL,DECK,ENG[/TD]
[TD]930387[/TD]
[TD]07/18 PO NOT SUPPLIED[/TD]
[TD] [/TD]
[TD]B10180058[/TD]
[TD] [/TD]
[TD]USD[/TD]
[TD]-1099.6[/TD]
[TD]1[/TD]
[TD]-1099.6[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]-48.72[/TD]
[TD]1[/TD]
[TD]-48.72[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]18.3[/TD]
[TD]1[/TD]
[TD]18.3[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]9.8[/TD]
[TD]1[/TD]
[TD]9.8[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]34.28[/TD]
[TD]1[/TD]
[TD]34.28[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]25.14[/TD]
[TD]1[/TD]
[TD]25.14[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]35.43[/TD]
[TD]1[/TD]
[TD]35.43[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]18.1[/TD]
[TD]1[/TD]
[TD]18.1[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]2.04[/TD]
[TD]1[/TD]
[TD]2.04[/TD]
[/TR]
[TR]
[TD]411101[/TD]
[TD]CONSUMABLES[/TD]
[TD]312221[/TD]
[TD]STORES-DECK[/TD]
[TD]210249[/TD]
[TD]DECK CONSUMABLE ORDER 2ND QUAR[/TD]
[TD]xxxx SUPPLIERS[/TD]
[TD]B10180068[/TD]
[TD]***/0393/18-19[/TD]
[TD]USD[/TD]
[TD]22.9[/TD]
[TD]1[/TD]
[TD]22.9


[/TD]
[/TR]
</tbody>[/TABLE]

Thank you very much for all your help.