Copy Unique Distinct Values

Hi,

I have a worksheet (ItemsWithDupes) of over 3900 items which includes hundreds of duplicates. I want to copy unique distinct items to another worksheet (ItemsNoDupes). Here is the code I have but it does not seem to work.

Note: the starting locations (C8 on the source worksheet and A8 on the result worksheet) are the same as on the whole workbook.

Please Login or Register  to view this content.

Would you kindly check my code for what I have done wrong?

Thanks!

UniqueItems.xlsm

1) Delete

Please Login or Register  to view this content.

2) change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Thanks, jindon; that works perfectly!