Need help in my codes

[Jolenelity]

Hi all, I'm currently doing a set of macro codes which has quite a lot of same data starting with "FH" and "FB". Just wondering if there is any ways where I can just filtered out by "FH" and "FB" without typing the whole data out into my codes (in red) as shown below.

Please advice. Thank you.

ActiveSheet.Range("$A$1:$AH$995").AutoFilter Field:=21, Criteria1:=Array( _
"FHAP1", "FHAP2", "FHAP3", "FHAP4", "FHAP5", "FHLAP5"), Operator:=xlFilterValues
Cells.Select
Range("F1").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet1").Name = "Residential Raw"
ActiveSheet.Paste

Sheets("Raw").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$AH$995").AutoFilter Field:=21, Criteria1:=Array( _
"FBAP1", "FBAP2", "FBAP3", "FBAP4", "FBAP5"), Operator:=xlFilterValues

 

[anvg]

Try

    ActiveSheet.Range("$A$1:$AH$995").AutoFilter Field:=21, Criteria1:="=FH*", _
        Operator:=xlOr, Criteria2:="FB*"

Regards,

 

[Jolenelity]

It works! Thank you so much for your help and prompt reply.