Seleccionar celdas hasta que cumpla un criterio

¿Qué abarque del 1al 6 así desordenados, o que los ordene primero y logo seleccione el rango que pides...?

Claro que abarque del 1 al 6 desordenados, es decir, que me seleccione la celda cuando tenga valor 1 y que me selecciones la celda que tenga valor 6 y que me haga un rango con esas dos celdas seleccionadas
Ojala puedas ayudarme
Gracias por responder tan pronto

Esta Macro te seleccionara desde la celda donde encuenter el numero 1 hasta a celda donde encuentre el numero 6
Nota: tu puedes cambiar los criterios de búsqueda cambiándole el valor a dato y a Dato2.
Sub MyMacro()
Range("a1").Select
Dim dato As Integer
dato = 1
dato1 = ActiveSheet.Range("a1:a65536").Find(what:=dato, After:=ActiveCell).Address
Dim Dato2 As Integer
Dato2 = 6
dato3 = ActiveSheet.Range("a1:a65536").Find(what:=Dato2, After:=ActiveCell).Address
    Range(dato1, dato3).Select
    Range(dato3).Activate
End Sub

Gracias experto era lo que buscaba
Pero que pasaría si existe 3 unos en el rango
Gracias de antemanos