Remove Duplicated from multiple column

[shelim481]

I need to remove duplicate from two columns with a vba any ideas?
Capture.JPG

So bacically as you can see i want both colums to only have unique values

I have tried

ActiveSheet.Range("A:B").RemoveDuplicates Columns:=Array(1,2), Header:=xlYes

but it did not work