С помощью цикла определить дату - VBA

Формулировка задачи:

Привет всем! Подскажите кто чем может, пожалуйста. Вручную задается дата (дд.мм.гггг), одновременно с этим имеется колонка где в порядке возрастания указаны даты с периодичность в полгода (+- пара дней), как с помощью цикла определить дату, которая или равна задаваемой или дату после которой задаваемая дата стала больше?? Надеюсь на вашу скорую помощь, всем добра

Решение задачи: «С помощью цикла определить дату»

textual
                            Листинг программы 
                        

                            Function Find_Date(Searche_Date As Date, Searche_Range As Range) As Date
Dim cel As Range, x As Date
 
For Each cel In Searche_Range
    If cel.Value = Searche_Date Then
        Find_Date = cel.Value
        Exit Function
    End If
    If cel.Value > Searche_Date Then
        If cel.Row = 1 Then
            Find_Date = cel.Value
        Else
            Find_Date = cel.Offset(-1, 0).Value
        End If
        Exit Function
    End If
Next cel
Find_Date = Searche_Range(Searche_Range.Rows.Count)
 
End Function
                        