I am using this code but it is incredibly slow. I need something that will accomplish the same end more quickly. Also, the code that I'm using deletes my header row and I don't want it to do that. Thanks.
' Delete rows that have a value other than "Lackawanna" or "Luzerne" in Column E, but, don't delete the top row.
Dim rng1 As Range
Dim lngRow As Long
Application.ScreenUpdating = False
If [e2] <> vbNullString Then
Set rng1 = Range([e2], [e1].End(xlDown))
Set rng1 = [e1]
For lngRow = rng1.Rows.Count To 1 Step -1
If Not (Cells(lngRow, "E") = "Lackawanna" Or Cells(lngRow, "E") = "Luzerne") Then
' If Left$(Cells(lngRow, "c"), 2) <> "CV" Then Rows(lngRow).EntireRow.Delete
Application.ScreenUpdating = True