Sub Macro1()
On Error Resume Next
Range("A1", [A65536].End(xlUp)).AutoFilter Field:=13, Criteria1:="=C2E3*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Range("A1", [A65536].End(xlUp)).AutoFilter Field:=13, Criteria1:="=C2G*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Range("A1", [A65536].End(xlUp)).AutoFilter Field:=13, Criteria1:="=C2C*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Range("A1", [A65536].End(xlUp)).AutoFilter Field:=13, Criteria1:="=C2D*", Operator:=xlAnd
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
Selection.AutoFilter Field:=13
End Sub