Prípadne sa dá prvá verzia (štandardný modul) ešte zjednodušiť:

Sub Prepinac_1()
    Prepinanie (1)
End Sub

Sub Prepinac_2()
    Prepinanie (10)
End Sub

Sub Prepinac_3()
    Prepinanie (15)
End Sub

.
.
.

Sub Prepinanie(riadok)
    Rows(Range("E" & riadok) & ":" & Range("F" & riadok)).EntireRow.Hidden = Not (Rows(Range("E" & riadok) & ":" & Range("F" & riadok)).EntireRow.Hidden)
End Sub

Čiže pre každé tlačidlo vytvoríš minimálny kód, ktorým vyvolávaš spoločnú procedúru Prepinanie, ktorej predávaš argument, ktorým je číslo riadku, v ktorom sa pre dané tlačidlo v bunkách E a F nachádza rozsah skrývaných riadkov.

teda napr:
Prepínač 2 odovzdáva procedúre Prepinanie argumet 10. To znamená, že pre tlačidlo 2 sú ním skrývané rozsahy zadané v riadku 10 (v bunke E10 a F10).

P.S.Musíš si uvedomiť, že tlačidlo musí byť umiestnené v riadku, ktorý ostane viditeľný.