sorry... našiel som si tam chybu...
Správne je:

Sub Makro2()
Select Case Range("H7")
    Case 0
        Range("H7") = 1
    Case 1
        Range("H7") = 0
End Select
Select Case Range("H9")
    Case 0
        Range("H9") = 1
    Case 1
        Range("H9") = 0
End Select
End Sub

toto robí to čo chceš:
po každom spustení zneguje obsah buniek H7 a H9

P.S.
tento príspevok je len kvôli oprave chyby, ale ešte raz zrekapitulujem aj ostatné:
Ak budeš namiesto 0 používať výraz False (Nepravda) a namiesto 1 výraz True (Pravda), tak to bude ešte jednoduchšie:

Sub Makro2()
     Range("H7")=Not(Range("H7"))
     Range("H9")=Not(Range("H9"))
End Sub

Alebo ešte ako píše nižšie Machr, môžeš samotnú negáciu použiť ako samostatnú procedúdu, do ktorej budeš tlačítkom odosielať adresy viacerých buniek ako argumenty.
Je to detto to, čo píše Machr, rozdiel je len v spôsobe negácie.