Thread: Delete duplicates

Code:

Sub RemoveDups()
    Dim iRow    As Long
    Dim vCol    As Variant
    Dim iRowEnd As Long

    vCol = Worksheets("Sheet2").Range("B1").Value

    With Worksheets("Sheet3").Columns(vCol)
        iRowEnd = .Cells(.Rows.Count).End(xlUp).Row
        For iRow = iRowEnd To 2 Step -1
            If WorksheetFunction.CountIf(Range(.Cells(1), .Cells(iRow - 1)), .Cells(iRow).Value) > 0 Then
                .Cells(iRow).EntireRow.Delete
            End If
        Next iRow
    End With
End Sub