Excel delete duplicate rows

Sub DeleteDuplicate()
Dim iMaxCols As Integer
Dim lMaxRows As Long
Dim Cell As Range

    ActiveSheet.AutoFilterMode = False
    
    Set Cell = Cells.Find("*", Cells(1, "A"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    
    If Cell Is Nothing Then Exit Sub
    
    iMaxCols = Cell.Column + 1
    
    Set Cell = Cells.Find("*", Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    
    lMaxRows = Cell.Row
    
    With Range(Cells(1, iMaxCols), Cells(lMaxRows, iMaxCols))
        .FormulaR1C1 = "= RC1 & ""|"" & RC2 & ""|"" & RC3"
        .Copy
        .PasteSpecial xlPasteValues
    End With
    
    With Range(Cells(1, iMaxCols + 1), Cells(lMaxRows, iMaxCols + 1))
        .FormulaR1C1 = "=COUNTIF( R1C[-1] : RC[-1],""="" & RC[-1])"
        .Copy
        .PasteSpecial xlPasteValues
    End With
    
    Cells.Select
    Selection.AutoFilter
    
    Cells.AutoFilter Field:=iMaxCols + 1, Criteria1:=">1"
    
    Rows("2:" & lMaxRows).Delete
    
    ActiveSheet.AutoFilterMode = False
    Columns(iMaxCols).Delete
    Columns(iMaxCols).Delete
    
    Set Cell = noting
    
End Sub