Assuming your data is confined to column A, the following macro will delete the entire row for all entries appearing more than one time.
Copy the following macro to the clipboard:
Sub Delete_Dups()
Dim i, LastRow
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "A").Value <> "" Then
If Application.CountIf(Range("A:A"), "=" & Cells(i, "A").Value) > 1 Then
Cells(i, "A").Interior.ColorIndex = 37
End If
End If
Next
For i = LastRow To 1 Step -1
If Cells(i, "A").Interior.ColorIndex = 37 Then
Cells(i, "A").EntireRow.Delete
End If
Next
End Sub
Press ALT + F11
In the menus at the top of the VBE, select INSERT > MODULE
Paste the macro into the editing area to the right.
Close the VBE and return to the worksheet.
Press ALT + F8
When the Macros window opens, highlight this macro and click 'Options..'
Enter a letter to be used as a keyboard shortcut and click 'OK'.
Close the Macros window.
Press Ctrl + your shortcut letter to run the macro on demand.