Sub Knop1()
  Dim bereik As Range, c1 As Range
  Set bereik = Range("A30:I50")
  For i = 1 To bereik.Rows.Count                           'loop in je bereik 1 voor 1 alle rijen af
    Set c1 = bereik.Rows(i)                                'een bepaalde rij in je bereik
    c1.EntireRow.Hidden = (WorksheetFunction.CountIf(c1, ">0") + WorksheetFunction.CountIf(c1, "=A") > 0)  'verbergen als er minstens 1 cel een waarde > 0 of een "A" bevat
  Next
End Sub

Sub Knop2()
  Dim bereik As Range, c1 As Range
  Set bereik = Range("J30:M30")
  If WorksheetFunction.CountIf(bereik, ">0") + WorksheetFunction.CountIf(bereik, "=A") > 0 Then  'verbergen als er minstens 1 cel een waarde > 0 of een "A" bevat
    Range("A30:I50").EntireRow.Hidden = False
    bereik.EntireRow.Hidden = True
  End If
End Sub

Sub Knop3()
  Rows("30:50").EntireRow.Hidden = False
End Sub