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
Bookmarks