Start = Timer
    Do While Timer < Start + 3
        DoEvents
    Loop

Sub гео_с_соседним_по_выделенному()
    Dim vStr As String, c As Variant
    Dim pref As String
    Dim suf As String
    
    Dim DateCell As Range, limitCell As Range
    ' Дата лимита
    Set DateCell = ThisWorkbook.Sheets(1).Range("R2")
    ' Оставшееся кол-во обращений
    Set limitCell = ThisWorkbook.Sheets(1).Range("S2")
    
    ' Если дата меньше текущей - поставим текущую дату и обновим лимит
    If DateCell.Value < Date Then
        DateCell.Value = Date
        limitCell.Value = 25000
    End If
    
    Application.CutCopyMode = False
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.NumberFormat = "General"

    pref = "=гео.xlsm!getYandexMapsGeocode("""
    vStr = InputBox("Ведите доп идентификатор для привязки (по умолчанию г.Москва.) :", "Ввод данных")
    If vStr = "" Then vStr = "г.Москва, " Else vStr = vStr
    
        suf = """&RC[-1])"
    
    pref = pref & vStr & " " & suf
    
    For Each c In Selection.Cells
    ' Если лимит не исчерпарн - делаем запрос и уменьшаем счетчик
    If limitCell.Value > 0 Then
        c.Value = pref
        ' =====================
        c.Copy
        c.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        '=================
        On Error GoTo ErrorHandler
        c.Value = Replace(c.Value, "ё", "е")
        GoTo Ends:
ErrorHandler:
        c.Value = "адрес не найден"
        Application.ActiveCell.Offset(1, 0).Select
        Resume Next
Ends:
            ' ==================
        ' Уменьшаем лимит
        limitCell.Value = limitCell.Value - 1
    Else
        ' Если кол-во дневных запросов вышло - выведем сообщение и выйдем из цикла
        MsgBox "Дневной лимит исчерпан."
        Exit For
    End If
    Next
    Application.CutCopyMode = False
End Sub