KLUDGE FIX Speed this section of code

[mole999]

Problem, I need to identify exact duplicates so I can remove them

I have

    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("AM2").FormulaR1C1 = _
        "=IF(COUNTIF(R2C36:R" & LR & "C36,RC[-3])>1,IF(COUNTIF(R2C[-3]:RC[-3],RC[-3])=1,"""",""Duplicate""),"""")"
        .Range("Am2").Select
        Selection.AutoFill Destination:=.Range("Am2:Am" & LR)
        .Range("Am2:Am" & LR).Select
    End With
    Application.ScreenUpdating = True

=IF(COUNTIF($AJ$2:$AJ$67596,AJ9)>1,IF(COUNTIF(AJ$2:AJ2,AJ2)=1,"","Duplicate"),"")

but it is currently doing over hundred thousand rows, and as its volatile its taking forever (well tens of minutes)

any quick fix that would do the same but place the static value DUPLICATE in the right place. I've tried multiple different ways, this worked on small test sets. I can then get on with working with the cut down data

Pretty Please

 

[mole999]

my final working for the whole 105 thousand rows to 6500 plus cf etc now times at 9 seconds, not even enough time to make a drink now, thanks to everyone for the thoughts and offerings

 

[Rick Rothstein]

@ Rick Removeduplicates and advanced filter delete/hide duplicates starting from 2nd occurrence up. If items are 1, 1, 2 both will give 1, 2.

my final working for the whole 105 thousand rows to 6500 plus cf etc now times at 9 seconds, not even enough time to make a drink now, thanks to everyone for the thoughts and offerings

Okay, so then my code duplicates RemoveDuplicates. I wonder how my code compares with RemoveDuplicates time-wise? I'm sure its slower, but I would be curious how much slower.