Copy & Paste all unique values from a range

Option Explicit

Sub CreateUniqueList()
Dim lastrow As Long

lastrow = Cells(Rows.Count, "a").End(xlUp).Row
    
    ActiveSheet.Range("e2:r" & lastrow).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=ActiveSheet.Range("t2"), _
    Unique:=True
     
End Sub

I mean i used this but some duplicates still exist because they are on the same row as another value in my range