'код в модуль листа. Для выполнения даблкликнуть ячейку в третьей строке
'
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lLastRow As Integer
    Cancel = True
    lLastRow = Cells(Rows.Count, Target.Column).End(xlUp).Row
    
   If Target.Row <> 3 Then Exit Sub ' если активная ячейка не принадлежит 3-й строке, ничего не делать
   If lLastRow > 12 Then     ' если последняя заполненная ячейка расположена ниже 12-ой строки текущего столбца, 
   'значит, в ячейках есть данные, которые будут заменены при выполнении КОДа(Import). Выводим сообщение:
      Select Case MsgBox("Переписать существующие данные?", vbYesNo + vbQuestion + vbDefaultButton2, "Внимание!")
         Case vbNo
            MsgBox ("ОК, ничего не меняем, все оставляем как есть.")
            Exit Sub
         Case vbYes
            MsgBox ("Перезаписываю данные...")
        '--------------------
        '    КОД(Import)
        '--------------------
      End Select
   Else       ' если lLastRow =<12, ячейки без данных, можно без вопросов импортировать в них данные:
        '--------------------
        '    КОД(Import)
        '--------------------
   End If
End Sub

sep_ = Mid(1 / 2, 2, 1)

If .exists(t) Then Cells(i, Target.Column).Value = Int(Replace(.Item(t), ".", ","))

For i = 13 To il
 t = Cells(i, 5) & "|" & d
 If .exists(t) Then Cells(i, Target.Column).Value = Int(Replace(.Item(t), ".", ","))  

Else .exists(t) Then Cells(i, Target.Column).Value = ""

If Not .exists(t) Then Cells(i, Target.Column).Value = "" 

With CreateObject("Scripting.Dictionary"): .comparemode = 1
                  For i = 0 To UBound(a)
                If Len(a(i)) Then 
                    b = Split(a(i), ",")
                    t = b(1) & "|" & Split(b(0))(0) 
                 .Item(t) = b(6) 

t = b(1) & "|" & Split(b(0))(0)   

If .exists(t) Then Cells(i, Target.Column).Value = Int(.Item(t))