VBAにて大項目小項目でそれぞれ非表示、表示機能

Question

大項目、小項目それぞれで非表示、表示機能を持たせたいのですが難しくなかなか出来ません。
サンプルで作ってみたのですが分かりくかったら申し訳ございません。
このようなプログラミングって可能なのでしょうか？
サンプルでいう最大行の１７行は固定とします。

県と学校でそれぞれ行の増減ボタンを用意します。

県のボタン
一番上の県の塊だけはデフォルトで一つだけ表示させます。（B6:C9)
そして、必要であれば非表示の県の塊を上から順番に表示していくというものを作りたく。

「県－」を一度押すと一番下の県、14行目から17行目が非表示に、
「県＋」を一度押すと表示している県から一個下の県を表示

学校のボタン
「学校＋」を一度押すと、表示している県、すべて一校ずつ増やす
「学校ー」を一度押すと、表示している県、すべて一校ずつ減らす

Answer 1

こんばんは、全部の処理はできませんが中心的な関数をアップしますので
これをヒントに解決できることを期待します。

'Row行 Col列のセルを表示または非表示にする。
Sub ShowHide(ByVal Row As Integer, ByVal Col As Integer, ByVal flgVisible As Boolean)
Dim Rng As Range

Set Rng = Cells(Row, Col)
If flgVisible Then
    Rng.Font.ThemeColor = xlThemeColorLight1    'show
Else
    Rng.Font.ThemeColor = xlThemeColorDark1     'hide
End If

End Sub

'Row行 Col列のセルの表示または非表示を取得する
Function getVisible(ByVal Row As Integer, ByVal Col As Integer) As Boolean
Dim Rng As Range

Set Rng = Cells(Row, Col)
getVisible = Rng.Font.ThemeColor = xlThemeColorLight1

End Function

非表示：フォントを白に
表示：フォントを黒に
という方法をとりました。ほかにもやり方はあります。がんばってください。

Answer 2

非表示にするのには、Excelの機能にある非表示でいいんですよね

やりたいと思っていることをマクロの記録でやってみれば簡単にできそうな気がしますが..