This will do the trick

Sub Macro1()
Columns("A:A").Select
Range("A2:A6").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True
End Sub


wrote:
At my previous job someone wrote a macro that was able to take the
information that was copied into the clipboard and only paste unique
values in the selected area. I've been searching online for a way to
do this but can't seem to find a solution. Can anybody help with this?