Remove duplicates in macro working in one instance not in another

[thewoodington]

Hi guys,

I am trying to remove the duplicates from column A, then select the contents on column Y paste that into another sheet. Here I remove duplicates again.

My code will not remove duplicates on the first instance but doesn't remove duplicates on the second instance. I can see the code is different but cannot see why one works and other one doesn't?

Sheets("Accepted Apps").Select
    ActiveSheet.Range("$A$1:$AH$1000000").RemoveDuplicates Columns:=1, Header:= _
        xlYes
   
    Columns("Y:Y").Select
    Selection.Copy
        Sheets("Trends").Select
        
            Range("A1").Activate
    ActiveSheet.Paste
    
    Application.CutCopyMode = False
    ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo

Can someone please help?

Thanks

 

[puru.sve]

If you first duplicate remove oes not work then might you have blank column in last. try this

Sheets("Accepted Apps").Range("$A$1:$AH$1000000").RemoveDuplicates Columns:=1, Header:=xlYes
   
Sheets("Accepted Apps").Columns("Y:Y").Copy
       
Sheets("Trends").Range("A1").PasteSpecial xlPasteValues
    
Application.CutCopyMode = False
Sheets("Trends").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo