juliowd,

Boa Tarde!

Supondo que estes dados que você mencionou estejam na coluna A, a partir da linha 1 (até a linha 7) da aba chamada Plan1, você poderá utilizar o código abaixo para selecionar a célula que contém o número 5 (A6):

Sub Selecionar()
    Dim UltimaLinha As Long
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row - 1
    Sheets("Plan1").Range("A" & UltimaLinha).Select
End Sub

Oi Wagner!!
Obrigado por teres respondido e desculpe minha demora.
Eu testei seu código.
Ele apenas selecionou a célula onde estava o número 5, e não todo o intervalo do 1 ao 6.
É que o que eu preciso é selecionar desde o 'início' até o '5'. Todas essas 6 células.
Mas o 'início' acontece de forma variável.
E eu uso uma FOR pra encontrar ele, dizendo na programação o nome exato.
Então, eu faço a varredura com a FOR, encontro a célula que desejo, e a partir disso, ele seleciona todas abaixo menos a última.
Será que dá?
Valeu mais uma vez!!!
Abração!!!

É só vc ajustar isso no código:

Sub Selecionar()
    Dim UltimaLinha As Long
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row - 1
    Sheets("Plan1").Range("A2:A" & UltimaLinha).Select
End Sub

Perfeito!!!
Funcionou como tinha que funcionar!!!
Muito obrigado pela ajuda!!!!!!!
Um abraço!