remove duplicate from top down

[VbaHell]

Hello all

I have this short line of code that removes duplicates rows based on the cell values in column "A"

This works fine but I need to delete from row "A" downwards instead of last row upwards

b = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:Z" & b).RemoveDuplicates Columns:=1, Header:=xlNo

Any idea's please on how to change the code to delete from the top down instead of the bottom up

 

[Joe4]

Here is kind of a "brute force" method, but it can all be automated in your code.

First, create a temporary column which you use to add a counter (row 1=1, row 2=2, etc).
Then, have your code sort the data first by this temporary count column in descending order.
Then run the "RemoveDuplicates" command.
Then re-sort the temporary column in ascending order, and delete the temporary column.

 

[Fluff]

If you mean that you want to keep the last value, rather than the first, then just sort the data & then run the code.

 

[Joe4]

As a follow-up to my reply and Fluff's, maybe you already have a column which you can use in sorting (like a date field, or something like that).
If that is the case, then you don't need a temporary column.