Create Unique List in Shortest Time

I have a list of project numbers that is over 7000 rows long [example attached].
Many numbers are repeated. This list comes out of a financial reporting system.
I need to extract a list of unique numbers in numerical order.
I have two solutions working, one with SUMPRODUCT formulas and one with MACRO.
Here's the MACRO solution.
But it takes about 20 seconds to execute.
I am just looking to cut down on execution time. I am using this macro a few times on different lists in the same program.

Is there a better [faster] way to do this?

Please Login or Register  to view this content.

Thanks for any helpful hints.
modytrane

Using the Advanced filter with the Unique records option checked is probably the fastest way to do it.

echoing romperstomper... re: Advanced Filter

on an aside bear in mind that deletion of rows is a Volatile action so normally a good idea to set Calc to Manual beforehand and reset to original setting thereafter:

Please Login or Register  to view this content.

Should see an increase with this

Please Login or Register  to view this content.