Remove duplicates over multiple columns

If columns don't have header try next code

Option Explicit

Sub DeleteDuplicate()
Dim ObjDic   As Object
Set ObjDic = CreateObject("Scripting.Dictionary")
Dim DelRg  As Range
Dim I  As Integer, LR As Integer
   With ObjDic
      LR = Cells(Rows.Count, 1).End(3).Row
      Set DelRg = Cells(LR + 1, 1)
      For I = 1 To LR
         If (.exists(Cells(I, 1) & Cells(I, 2))) Then
            Set DelRg = Union(DelRg, Cells(I, 1))
         Else
            .Item(Cells(I, 1) & Cells(I, 2)) = Empty
         End If
         DelRg.Select
      Next
   End With
   DelRg.EntireRow.Delete
End Sub