Ayuda con el while, Excel Macro

[RoberT89]

Hola compañeros, hice un codigo para recorrer una lista y cada vez que recorre un numero de esa lista copia el numero y lo busca en otra hoja. El problema es que cuando el while llega al espacio en blanco el programa hace lo mismo y me regresa un error. Me podrían ayudar para parar el while cuando llegue al espacio donde no se encuentra ningun valor.

Gracias

[hugo180486]

No te entendi bien, haber si esto es lo que quieres?

Código vb:

Sub 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
 

[RoberT89]

Muchas gracias por la respuesta Hugo. Voy a tratar de implementar tu idea para ver que pasa muchas gracias.

EDIT: Con el Exit Do todo se soluciono gracias