Hi Steven

Try this

Sub Example2()
   Dim Lrow As Long
   Dim CalcMode As Long
   Dim ViewMode As Long
   Dim StartRow As Long
   Dim EndRow As Long

   With Application
       CalcMode = .Calculation
       .Calculation = xlCalculationManual
       .ScreenUpdating = False
   End With

   ViewMode = ActiveWindow.View
   ActiveWindow.View = xlNormalView

   With ActiveSheet
       .DisplayPageBreaks = False
       StartRow = 1
       EndRow = 5000

       For Lrow = EndRow To StartRow Step -1

           If .Cells(Lrow, "E").Value = 2 And _
              .Cells(Lrow, "G").Value <> 0 Then .Rows(Lrow).Delete

       Next
   End With

   ActiveWindow.View = ViewMode
   With Application
       .ScreenUpdating = True
       .Calculation = CalcMode
   End With

End Sub