Si quieres recorrer en forma ascendente te puedes guiar de este codigo:
Código:
Private Ex As New Excel.Application
Private Sub Form_Load()
.....
.....
Celda(10)
End Sub
Private Function Celda(n As Integer)
Do While Ex.Cells (n, 2) <> "algo"
n=n-1
Loop
....
.....
.....
End Function