Выбор данных связанных через Combobox

Private Sub ComboBox1_Change() 'Выборе менеджера
  
  Dim dicCountry 'Объявляем переменную для словаря
  Dim row As Integer
  Dim key As String, item As Double ' переменные для ключа и элемента словаря
  Set dicCountry = CreateObject("Scripting.Dictionary") ' создаём словарь
  Set dicCountry2 = CreateObject("Scripting.Dictionary") ' создаём словарь
   
  ComboBox2.Clear
  ComboBox3.Clear
  With Sheets(2).Range("A1:F" & Лист2.Range("A1").End(xlDown).row) ' работаем с именованным диапазоном
    For row = 1 To .Rows.Count ' перебираем строки ИД
     If CStr(Cells(row, 3)) = ComboBox1.Text Then
      key = CStr(.Cells(row, 5).Value) ' Получаем регион
      key2 = CStr(.Cells(row, 4).Value) ' Получаем клиента
      item = CDbl(.Cells(row, 2).Value) ' получаем элемент из второго столбца текущей строки ИД
      item2 = CDbl(.Cells(row, 2).Value) ' получаем элемент из второго столбца текущей строки ИД
      dicCountry.item(key) = item
      dicCountry2.item(key2) = item2
     End If
    Next
  End With
For Each varItem In dicCountry ' организуем цикл по элементам  масива Items
      ComboBox2.AddItem varItem
      
    Next
For Each varItem In dicCountry2 ' организуем цикл по элементам  масива Items
      ComboBox3.AddItem varItem
     Next
 
End Sub
 
Private Sub ComboBox2_Change() 'Выборе региона
  
  Dim dicCountry 'Объявляем переменную для словаря
  Dim row As Integer
  Dim key As String, item As Double ' переменные для ключа и элемента словаря
  Set dicCountry = CreateObject("Scripting.Dictionary") ' создаём словарь
  Set dicCountry2 = CreateObject("Scripting.Dictionary") ' создаём словарь
   
 
   ComboBox3.Clear
  With Sheets(2).Range("A1:F" & Лист2.Range("A1").End(xlDown).row) ' работаем с именованным диапазоном
    For row = 1 To .Rows.Count ' перебираем строки ИД
     If (CStr(Cells(row, 5)) = ComboBox2.Text And CStr(Cells(row, 3)) = ComboBox1.Text) Then
      key = CStr(.Cells(row, 3).Value) ' получаем менеджера
      key2 = CStr(.Cells(row, 4).Value) ' получаем клиента
      item = CDbl(.Cells(row, 2).Value) ' получаем элемент из второго столбца текущей строки ИД
      item2 = CDbl(.Cells(row, 2).Value) ' получаем элемент из второго столбца текущей строки ИД
      dicCountry.item(key) = item
      dicCountry2.item(key2) = item2
     End If
    Next
  End With
For Each varItem In dicCountry ' организуем цикл по элементам  масива Items
      ComboBox1.AddItem varItem
      
    Next
For Each varItem In dicCountry2 ' организуем цикл по элементам  масива Items
      ComboBox3.AddItem varItem
     Next
 
End Sub