Try something similar to this:
Sub Macro1()
' Macro1 Macro ' '
Rows("7:21").Select
If Rows("7:21").Hidden = True Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If
End Sub
All that is left to do is attach it to a button.