@matteus0203, não entendi exatamente o que vc deseja. Vc quer que a macro pare quando encontrar letra ou quer que ela só execute em células que sejam número puro?

Como sempre dizemos aqui, anexe um modelo com aquilo que vc espera que seja feito, demonstrando no próprio aquivo o resultado esperado.

@edsonbr, Obrigado por responder!

Edson, o que eu desejo é algo exatamente como segue:

Do while activecell (Não houver uma letra na célular)
Activecell.offset(1,0).select
loop

Resumindo, quero deslocar a célula ativa para baixo enquanto não houver uma letra na célula, e quando houver, que o Loop pare.

 Do Until (UCase(ActiveCell.Value) Like "*[A-ZÁÀÂÃÉÊÍÓÔÕÚÇ]*")
   ActiveCell.Offset(1, 0).Select
 Loop