Remove almost Duplicate and change cell value.

[rdelosh74]

Have a sheet that has a bunch of part numbers on it. Column D6 (and down).
Some of these part numbers have a duplicate but they have a W at the end.

Example:

62590391W
62590391

What I need is for the macro to identify the part number without the W. Add the value of the same row Column I to the W part number same column.
And then to delete the entire row that the non W part was in. All the way down column D. Need it just for Active sheet.

Example:

WnonWexample.xlsx


Thank you.