Как найти все значения, которые существуют в листе?

Question

Я хочу проверить, существуют ли значения на моем листе, и если это так, то скопировать весь результат в a1, a2 и так далее ...

Я не могу остановить циклпоиск, если есть только 10 результатов, я хочу, чтобы он прекратился после 10 ячеек.

Sub ex82()
Dim r As Range, b, d As Integer
d = 1
b = 0
Do While b = 0
    Set r = Cells.Find("54256")
    If Not r Is Nothing Then Range("A" & d).Value = 54256
    d = d + 1
    'if .... b =
Loop
End Sub

мне нужно несколько if ...