Add auto filter (unique records) option to macro

Hi Pike, I added in a new definition:

Sub DelDups()
  Application.ScreenUpdating = False
  Dim deleted As Boolean
  deleted = True
  While deleted = True
    deleted = False
    For Each x In Sheets("RESULTS").Range("A2:A100")
       For Each y In Sheets("RESULTS").Range("A2:A100")
         If x.Row <> y.Row Then
           If x.Text = y.Text And y.Text <> "" Then
             Sheets("RESULTS").Rows(y.Row).Delete xlShiftUp
             deleted = True
           End If
         End If
       Next
    Next
  Wend
  Application.ScreenUpdating = True
End Sub

I've attached the finished workbook in case anyone else needs it as well.