You can use code like the following:
Sub DeleteDupRows()
Dim StartRow As Long
Dim EndRow As Long
Dim RNdx As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
StartRow = 1
EndRow = Cells(StartRow, "A").End(xlDown).Row
For RNdx = EndRow To StartRow Step -1
If Application.CountIf(Range(Cells(1, "A"), _
Cells(RNdx, "A")), Cells(RNdx, "A").Value) > 1 Then
Rows(RNdx).Delete
End If
Next RNdx
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com