Sub cacherligne()
Application.ScreenUpdating = False
Dim i As Long
For i = Range("E65536").End(xlUp).Row To 2 Step -1
Cells(i, 5) = Trim(Cells(i, 5))
If Cells(i, 5).Value = "Cancel" Then
Cells(i, 5).EntireRow.Hidden = True
End If
Next i
For i = Range("E65536").End(xlUp).Row To 2 Step -1
Cells(i, 5) = Trim(Cells(i, 5))
If Cells(i, 5).Value = "Reject" Then
Cells(i, 5).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub