Cutting or moving multiple non adjacent rows to the bottom of a data set using vba

[Yashkar]

Good day,

I am carrying out an analysis of data submitted. the nature of the analysis is to seek variances in the data. one of the variances is multiple submissions on the same data.

what I am aiming to do, is to cut all the first occurring duplicates to the bottom of the data.
I have already included a formula to mark the duplicates that need to be moved in a separate column( If(a2=a1,"Duplicate","")

so a VBA script to cut rows based on value of a row will work as well.

This would have normally been easy enough to filter and cut, but excel will not allow me to cut multiple rows that are not next to each other.

Please help

 

[footoo]

Perhaps convert your formula column to value then sort by that column to put "duplicates" at the bottom.
Then cut>paste the duplicates.

Alternatively, filter column A for unique items then cut>paste visible cells.

You posted that you want "to cut all the first occurring duplicates".
Your formula does not do this - it identifies duplicates except the first ones.

 

[Yashkar]

Thanks Footoo, doing this once off is easy enough for me.

However this needs to be repeated over and over again on different sheets, hence me wanting to use a macro for it

 

[footoo]

You should be able t get the code from the macro recorder.