Private Sub Worksheet_Change(ByVal Target As Range)
   Dim KeyCells As Range
   lrSh = Sheets(ActiveSheet.Name).Columns(11).Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues).Row '
   Set KeyCells = Range("i1:x15" & lrSh)
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
    For i = 19 To 66
        If Cells(i, 4) = "0" And Len(Cells(i, 4) = "0") > "0" Then
           Rows(i).EntireRow.Hidden = True
            Else: Rows(i).EntireRow.Hidden = False
        End If
   Next i
End If
End Sub

Private Sub Worksheet_Calculate()
         Dim cell As Range
         Application.ScreenUpdating = False
         For Each cell In ActiveSheet.Range("D12:D34").Cells
         If cell.Value = "0" Then cell.EntireRow.Hidden = True
         Next
         Application.ScreenUpdating = True
End Sub