Removing Duplicate Entries in a Column

[Zack Barresse]

Maybe this..

Sub testDup()
    Dim r As Long, x As Long
    r = Range("C65536").End(xlUp).Row
    For x = 2 To r Step 1
    If Range("C" & r).Value = Range("C" & r).Offset(-1).Value Then
        Range("C" & r).Offset(-1).EntireRow.Delete
    End If
    r = r - 1
    Next x
End Sub

Richie: The only reason I didn't step through backwards was because of the specifics on looking to delete the row above it, where that is somewhat 'traditionally' backwards. What do you think?