Skjul rækker hvis celle er blank

Her er et forslag til hvordan det kan løses

Sub Skjul_Blanke()
'
' Skjul_Blanke Makro
'
    Sheets("ArkNavn").Select
   
    Range("A1").Select  'Angiv første Celle der skal tælles antal rækker fra
    Range(Selection, Selection.End(xlDown)).Select 
 
      g = Selection.Rows.Count

      Range("E1").Select      'Angiv første Celle i kolonne E der undersøges
    For i = 1 To g
      If ActiveCell = "" Then
      Selection.EntireRow.Hidden = True
      Else
      Selection.EntireRow.Hidden = False
      End If
    ActiveCell.Offset(1, 0).Select
   
    Next
End Sub