Option Explicit
Sub test()
Dim p As Range, i As Long
For i = 1 To Cells.Find("*", , xlValues, , 1, 2, 0).Row
If Application.CountA(Rows(i)) > 0 Then
Set p = Union(IIf(p Is Nothing, Rows(i), p), Rows(i))
End If
Next i
p.Select
End Sub