You can use the following VBA script to remove the duplicates,
Specify the Range in the first line after the variable declaration, and use CountIF to identify the duplicates.
Sub DeleteDups()
Dim x
As Long
Dim LastRow
As Long
LastRow = Range("A10").End(xlUp).Row
For x = LastRow
To 1
Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1
Then
Range("A" & x).EntireRow.Delete
End If
Next x
End Sub
If you are looking for removing duplicates without VBA script, there are many methods to identify duplicates
1. using Conditional Formatting
2. Using Remove Duplicates icon
3. Using Unique option in advance filters.
The methods are clearly described in the below link:
http://www.mrexcel.com/tip138.shtml
Hope this helps!