No te entendi bien, haber si esto es lo que quieres?
Código vb:
Ver originalSub Recorrer()
Dim iRow As Integer
Dim i As Integer
i = 1
'// Obtiene la ultima fila ocn informacion de la columna A
iRow = Range("A65536").End(xlUp).Row
Do While Not i = iRow
If Cells(i, 1).Value = "" Then
MsgBox "Hay espacio, entonces termino el ciclo"
'// Para Salir del Do While o puedes poner Exit Sub para salir del procedimiento
'// Usalo como te convenga.
Exit Do
Else
MsgBox "no hay espacio" & Cells(i, 1).Value
End If
i = i + 1
Loop
End Sub