Delimitar rango donde mi macro va a buscar

Lo ideal es que si estas usando una celda de una hoja, uses una lista validada de los datos, y así controlas el ingreso erróneo de la información y usa esta fórmula te buscara la información y no seguirá buscando nuevos celdas con la misma información
Dedes ingresar este código en la hoja no en un modulo y tener un botón al lado de la celda donde se ingresara la información
Private Sub CommandButton1_Click()
Cells.Find(What:=Cells(2, 3), After:=Range("H2"), LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
End Sub
Pruebal y me avisas

Hola y Gracias por la respuesta.
La utilice y si sirve, pero no quiero tener una lista validada tan larga.
Probé esta opción y me sirve en la primera parte
Dim rng As Range
Columns("R:R").Select
Set rng = Selection.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
strAddress = rng.Address
Pero Aqui no se como definir la variable de el primer resultado para que busque apartir de ahi y claro en el rango ("R:R")
Set rng = Cells.FindNext(After:=ActiveCell)
               If rng.Address = strAddress Then Exit Do
strSuch = strFind
    MsgBox "No existen mas resultados", False, Application.UserName
end sub
Gracias de nuevo