Option Explicit

Private Sub formating()
     Dim i As Long, j As Long
     Dim tbRowStart As Long, tbRowEnd As Long
     Dim tbColStart As Long, tbColEnd As Long
     With ActiveSheet
         If .PivotTables.Count <> 1 Then Exit Sub
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         With .PivotTables.Item(1)
             On Error Resume Next
             .TableRange1.EntireRow.Hidden = False
             tbRowStart = .RowFields(1).LabelRange.Row
             tbRowEnd = .TableRange1.Row + .TableRange1.Rows.Count - 1

             tbColStart = .TableRange1.Column
             tbColEnd = .TableRange1.Columns.Count + tbColStart - 2
         End With
         For i = tbRowEnd To tbRowStart + 1 Step -1
             If Application.Sum(Range(.Cells(i, tbColStart), .Cells(i, tbColEnd))) = 0 Then .Rows(i).Hidden = True
         Next
     End With
     Application.ScreenUpdating = True
     Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
     Application.ScreenUpdating = False
     Call formating
     Application.ScreenUpdating = True
End Sub