Delete Duplicate Rows

Sub deldup()
For n = ActiveCell.Row To LastRow()
    Do While (Cells(n, ActiveCell.Column).Value = Cells(n - 1, ActiveCell.Column).Value) And (Cells(n, ActiveCell.Column).Value <> "")
        Rows(n).EntireRow.Delete
    Loop
Next n
End Sub