Remove Duplicated from multiple column

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

Sub Test()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        If Cells(i, "A").Value = Cells(i, "B").Value Then Cells(i, "B").Clear
    Next i
    Range("B:B").SpecialCells(xlCellTypeBlanks).Delete
End Sub

Sub RemoveDups()
Dim cell As Range
Dim DupFound As Range
Application.ScreenUpdating = False
For Each cell In Range("A1:A20")
    If cell.Value <> "" Then
        Set DupFound = Range("B:B").Find(cell.Value)
        On Error Resume Next
        If DupFound Then
            Cells(DupFound.Row, "B").Value = ""
        End If
        Set DupFound = Range("A" & (cell.Row + 1) & ":A20").Find(cell.Value)
        On Error Resume Next
        If DupFound Then
            Cells(DupFound.Row, "A").Value = ""
        End If
    End If
Next cell
Range("A:B").SpecialCells(xlCellTypeBlanks).Delete
Application.ScreenUpdating = True
End Sub

edit: add second check for duplicates in col. A