Private Sub OptionButton1_Click()
Application.ScreenUpdating = False
Range("11:19,22:36,38:40,44:45,49:63,67:69,71:75").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Private Sub OptionButton2_Click()
Application.ScreenUpdating = False
Range("11:19,22:36,38:40,44:45,49:63,67:69,71:75").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub