Autofilter is perfect for this. Try this code.

Sub Macro1()
Range("G1").AutoFilter Field:=1, Criteria1:="=Exh. pressure is
abnormal (MS2)", Operator:=xlOr _
, Criteria2:="=Vapor purge timeout"
Selection.CurrentRegion.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
End Sub