Hello all, I have a code (recorded macro) to search and delete rows containing certain texts. Since the data is in rangeA1:A30000 so it takes a long time to finish. Any idea to speed it up? Any help/suggestion would be appreciated.

[VBA]Sub import_MGF_distiller_part01()
Application.ScreenUpdating = False



Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=*#*", _
Operator:=xlOr, Criteria2:="=*END*", Operator:=xlAnd
Selection.EntireRow.Delete Shift:=xlUp

Application.ScreenUpdating = False

Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=*BEGIN*", _
Operator:=xlOr, Criteria2:="=*TITLE*", Operator:=xlAnd
Selection.EntireRow.Delete Shift:=xlUp

Application.ScreenUpdating = False

Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=*SCANS*", _
Operator:=xlOr, Criteria2:="=*RAWSCANS*", Operator:=xlAnd
Selection.EntireRow.Delete Shift:=xlUp

Application.ScreenUpdating = False

Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:="=*RTINSECONDS*", _
Operator:=xlOr, Criteria2:="=*_DISTILLER_*", Operator:=xlAnd
Selection.EntireRow.Delete Shift:=xlUp

End Sub[/VBA]