Hi DJ,

You could increase the speed of your macro
by temporarily turning of Excel's events and
calculatrions and restoring these settings at the
end of your macro.

Therefore, perhaps try something like:

'================>>
Private Sub CommandButton1_Click()
   Dim Rng As Range
   Dim rCell As Range
   Dim CalcMode As Long
   Dim ViewMode As Long

   Set Rng = Me.Range("E63", Range("E102").End(xlUp))

   On Error GoTo XIT
   With Application
       CalcMode = .Calculation
       .Calculation = xlCalculationManual
       .ScreenUpdating = False
   End With

   For Each rCell In Rng.Cells
       With rCell
           rCell.EntireRow.Hidden = .Value = 0
       End With
   Next rCell

XIT:
   With Application
       .Calculation = CalcMode
       .ScreenUpdating = True
   End With

End Sub
'<<================

---
Regards.
Norman

One thing to be aware of in your macro: End(xlDirection) bypasses data in
hidden rows or columns.

This modification unhides everything and then re-hides the cells with 0. To
help with performance and debugging, I like to build one big range and at
the end of the evaluation, hide the rows in a single action.

Sub HideStuff()
   Dim c As Range, rngToHide As Range, rngToLookat As Range, lngCalc As
Long
   Set rngToLookat = Range("E63:E102")
   rngToLookat.EntireRow.Hidden = False
   For Each c In rngToLookat.Cells
       If c.Value = 0 Then
           If rngToHide Is Nothing Then
               Set rngToHide = c
           Else
               Set rngToHide = Union(rngToHide, c)
           End If
       End If
   Next c
   If Not rngToHide Is Nothing Then
       lngCalc = Application.Calculation
       Application.Calculation = xlCalculationManual
       rngToHide.EntireRow.Hidden = True
       Application.Calculation = lngCalc
   End If
End Sub