Sub hh()
Dim arr, i%, s%, rng As Range
j = Application.CountA([1:1])
arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
s = Application.CountBlank(Range(Cells(i, 1), Cells(i, j)))
If s Then
n = n + 1
If n = 1 Then
Set rng = Cells(i, 1)
Else
Set rng = Union(rng, Cells(i, 1))
End If
End If
Next
rng.EntireRow.Hidden = True
End Sub