Solution 1:

I was able to accomplish this using the Tip from andreas and a new code I found. This was the final product.

Sub Hide_E()
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row
On Error Resume Next
For Each c In Range("E1:E" & LastRow)
   If c.Value = "N/A" Then
        c.EntireRow.Hidden = True
    ElseIf c.Value = 1 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub

Thank you for your help!