Hide rows for blank Cells when there is another blank cell below

Hi,

I have spreadsheet that has VBA to hide rows based on column F being 0. The formula works perfect except for one issue. There are Headings in Column D that have Blanks in column F and they need to stay if any of the cells below the heading have a value, but be hidden if the cell below is a blank. Is there a way anyone knows how this can be accomplished? My current code is as follows, but all the blank are left in it.

Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Dim i%
For i = Range("Beg").Row To Range("End").Row
With Cells(i, 6)
If Len(.Value) > 0 And .Value = 0 Then Rows(i).Hidden = True

End With
Next i
Application.ScreenUpdating = True
End Sub

Thank you!