Option Explicit
Sub Macro2()
Dim lngLastRow As Long
Dim rngMyCell As Range
Application.ScreenUpdating = False
With Sheets("Sheet1")
lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For Each rngMyCell In .Range("A4:A" & lngLastRow)
If Len(rngMyCell) = 0 Then
.Range("A4:A" & rngMyCell.Row).Select
Exit For
End If
Next rngMyCell
End With
Application.ScreenUpdating = True
End Sub