Zeilen bei Bedingung ausblenden

Guten Morgen zusammen,

mir liegt eine Excel-Liste vor, die in den Zeilen 1-7 sowie in den Zeilen 220&221 statische Textinformationen enthält.

Alle Zeilen dazwischen sollen standardisiert ausgeblendet sein. Nun würde ich gerne automatisch die Zeilen einblenden, die in Spalte D Werte > 1 enthalten. Spalte D wird über Formeln gefüllt. Üblicherweise wird so pro Woche so eine unregelmäßige Anzahl von Zeilen gefüllt.

Ich habe versucht, mir etwas zusammenzubasteln, bin aber mangels VBA-Kenntnissen bislang leider gescheitert.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$" = >1 Then _
   Range("8:219").EntireRow.Hidden 
End Sub