Sub Macro1()
Application.ScreenUpdating = False
On Error Resume Next
Worksheets(1).ShowAllData
[A1].AutoFilter Field:=1, Criteria1:="="
[A1].AutoFilter Field:=2, Criteria1:="=*AMB*", Operator:=xlAnd
Application.ScreenUpdating = True
End Sub
Sub Macro2()
Application.ScreenUpdating = False
On Error Resume Next
Worksheets(1).ShowAllData
[A1].AutoFilter Field:=1, Criteria1:="="
[A1].AutoFilter Field:=2, Criteria1:="=*CF*", Operator:=xlAnd
Application.ScreenUpdating = True
End Sub
Sub Macro3()
On Error Resume Next
Worksheets(1).ShowAllData
End Sub