try this code:
Sub Edit_EmptyDuplicateCells()
On Error GoTo EndMacro
If selection.Columns.Count > 1 Then
MsgBox "Sorry, you may only select cells in one column.", vbExclamation
Exit Sub
Else
End If
If selection.Rows.Count > 1 Then
Set rng = selection
Else
MsgBox "Please select cells in multiple rows.", vbExclamation
Exit Sub
End If
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
i = selection.Cells.Count
n = 0
For r = rng.Rows.Count To 1 Step -1
v = rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(rng.Columns(1), v) > 1 Then
rng.Rows(r).ClearContents
n = n + 1
End If
Percentage = n / i * 100
Application.StatusBar = "Now processing: " & Percentage & "%"
Next r
EndMacro:
MsgBox Format
& " cells have been cleared.", vbInformation
End Sub