Need to tweak code...Hide Rows Based on Cell Value

I have the code below hiding columns based on the value in the respective cells.

Now I need to adjust this so it will also hide rows A9:A16 based on their cell values. They will either be blank or will say "HIDE" if that row needs to be hidden.

Private Sub Worksheet_Calculate()
Dim rCell As Range
For Each rCell In Range("D1:L1")
rCell.EntireColumn.Hidden = (rCell.Value = "HIDE")
Next rCell
End Sub