Отобразить значение ячейки в ActiveX Combobox на рабочем листе

Question

У меня есть Combobox на рабочем листе "MAIN".Combobox называется CommercialBox.С текущим кодом я ищу в диапазоне значений, которые не являются «пустыми», и отображаю их в Combobox.Затем с помощью команды Click выбирается необходимое значение.Проблема в том, что ссылка не возвращается из ячейки рабочего листа в ActiveX Combobox.Я попытался добавить ThisWorkbook.Sheets("Contact database").UsedRange.Columns("I:J").Calculate к команде Click и:

Private Sub Worksheet_Calculate()
ThisWorkbook.Sheets("MAIN").CommercialBox.Value = ThisWorkbook.Sheets("Contact database").Range("I109").Value
End Sub

внутри Worksheet_Calculate(), но, похоже, это не работает.Мне нужно перейти на рабочий лист «База данных контактов» ячейки двойного клика I109.Только после этого выбранное значение Combobox обновляется.

Вот мой код для Combobox:

Private Sub CommercialBox_Click()
ThisWorkbook.Sheets("Contact database").Range("I109").Value = ThisWorkbook.Sheets("MAIN").CommercialBox.Value
ThisWorkbook.Sheets("Contact database").UsedRange.Columns("I:J").Calculate
End Sub


Private Sub CommercialBox_DropButtonClick()
Dim RngCom As Range
ThisWorkbook.Sheets("MAIN").CommercialBox.Clear
With ThisWorkbook.Sheets("Contact database")
    For Each RngCom In .Range("B55:B71")
        If RngCom.Value <> vbNullString Then ThisWorkbook.Sheets("MAIN").CommercialBox.AddItem RngCom.Value
    Next RngCom
End With
End Sub