Прошу помощи в макросе с циклом на основе одного значения и таблицы

[Yurets_Y]

Добрый день, в VBA я еще не силен, а в циклах и массивах вообще запутался. Помогите в реализации макроса (в дальнейшем пользовательской функции). Есть исходные данные: число (расстояние) и таблица, на выходе должно получиться также число (индекс).  Исходное число должно сверяться построчно с данными в исходной таблице, начиная с первой строки, если расстояние больше ячейки 1 и меньше ячейки 2, тогда индекс равен значению в ячейке 3, если нет переходим к следующей строке. Исходные данные худо-бедно записал, но само тело For each n in Range реализовать вообще не могу.

Код: (vb)

Sub Find_Index(dist As Integer, MyChart As Range)
Dim Index As Integer

    For Each Cell In MyChart
        'Если значение dist больше ячейки 1 и меньше ячейки 2
        'тогда переменная Index равна значению в ячейки 3
        If Cell1 <= dist <= Cell2 Then Index = Cell3
        End If
        'Если нет тогда сверить значения в следующей строке диапазона MyCart
        Next Cell
End Sub

В приложении файл с огрызком макроса и исходными данными.

[vikttur]

Формулы мало?
=ВПР(D2;$B$7:$D$58;3)

[nilem]

вот так попробуйте

Код: (vb)

Sub Find_Index()
Dim r As Range, dist As Long, idx As Long
dist = Range("D2").Value

For Each r In Range("B7:B58")
    'Если расстояние dist больше ячейки 1 и меньше ячейки 2
    'тогда Index равен значению в ячейке 3
    If r <= dist And r.Offset(, 1) >= dist Then
        idx = r.Offset(, 2)
        Exit For
    End If
    'r - 1-я ячейка в строке
    'r.Offset(, 1) - 2-я ячейка в строке
    'r.Offset(, 2) - 3-я ячейка в строке
    'Если нет перейти к сравнению в следующей строке таблицы MyCart
Next r
MsgBox idx
End Sub

или вот такую формулу
=ВПР(D2;B7:D58;3;ИСТИНА)
пока искал теги для формул, Виктор уже нарисовал

[Yurets_Y]

Благодарю всем ответившим,
vikttur спасибо за лаконичный способ без использования VBA (Фунцкию ВПР с самого начала забраковал, а зря, просто не умел пользоваться интервальным просмотром).
nilem благодарствую за макрос, данный способ мне больше подходит для последующей реализации данной таблицы внутри других таблиц.