Create an array removing duplicates from list but keeping last occurence

[Artik]

    ActiveSheet.ListObjects(1).Range.RemoveDuplicates Columns:=1, Header:=xlYes

Is it working?

Artik