Can be done without a macro.

Select a column and F5>Special>Blanks>OK

Format>Row>Hide.

If you want a macro................

Sub HidEmptyRows()
''only if entire row is blank
   LastRow = ActiveSheet.UsedRange.Row - 1 + _
           ActiveSheet.UsedRange.Rows.Count
   Application.ScreenUpdating = False
   For r = LastRow To 1 Step -1
       If Application.CountA(Rows(r)) = 0 Then
       Rows(r).Hidden = True
      ' Rows(r).Delete
       End If
   Next r
End Sub

Gord Dibben  MS Excel MVP