duplicate value in column X and delete entire row

[Rangolijaro]

need to ignore blank cells in column X

tried this code but it deleted all "nothing" cells

Sub Deleteduplicate()
Dim N As Long
N = Cells(Rows.Count, "X").End(xlUp).Row
For i = N To 2 Step -1
Set rlook = Range(Cells(i - 1, "X"), Cells(1, 1))
If Application.WorksheetFunction.CountIf(rlook, Cells(i, "X")) > 0 Then
Cells(i, "X").EntireRow.Delete
End If
Next i
End Sub

 

[steve the fish]

Try the if like this:

If Application.WorksheetFunction.CountIf(rlook, Cells(i, "X")) > 0 And Cells(i, "X") <> "" Then