Compare cells and delete

Hi,
I have a worksheet with many rows and in column D I have different values/text in each cell (no blanks). The first 20 rows have a certain value/text and the next 34 have another certain value/text and so on and so on. (i.e. 20 ab's and 34 qx's)
What I want is to only keep one of the lines for each value/text.

My thought was to compare the cell D1 with D2 and if they were the same then delete entire row of D2 and then continue with D1 and D3 and so on until the end and then continue with comparing D2 and D3...... The script I wrote was:

Please Login or Register  to view this content.

But this script leaves 5 of each line, and I don't understand why.
Can anyone help?

If you have a better way of solving this it will be greatly appreciated. (Total number of rows is 5000)
W

Hello whitebalance,

There a several methods you can use to do this. This macro uses the Dictionary object to store only the unique entries. Any duplicates will have the entire row cleared. Afterward, the remaining data is sorted in ascending order to remove the blank rows.

Please Login or Register  to view this content.