Vzorcem to nepůjde, zkus makro.
Nejdříve si v Možnosti - Přizpůsobit pás karet zapni kartu Vývojář.
Pak na kartě Vývojář klikni na Visual Basic, v levém sloupci pod VBAProject dvojklik na List1.
Otevře se okno, místo General zvolíš Worksheet a vpravo místo Declarations ev. SelectionChange zvolíš Change.
Mezi řádky Private Sub Worksheet_Change a End Sub zkopíruj:
If Range("A1").Value = 0 And Range("D1").Value = 0 And Range("F1").Value = 0 Then
Range("A1").RowHeight = 40
Else
Range("A1").RowHeight = 60
End If
Ostatní řádky Private Sub a End Sub vymaž.
Zavři okna pravými křížky, až se dostaneš zpátky na List1.
Tím jsi vyrobil privátní makro, které se spustí po každé změně v listu1.