Sub FillKontragent() ' заполнение выпадающих  списков контрагенты
    Dim i As Long
    
    Set ShDogovor_is_oplat = ThisWorkbook.Worksheets("Договоры из оплат") ' закрепление за переменной листа
    Set Dogovor_is_oplatListObj = ShDogovor_is_oplat.ListObjects("Договор_из_оплат_TB") ' закрепление умной таблицы
    Set Dogovor_is_oplatListRow = Dogovor_is_oplatListObj.ListRows.Add
    If Forma_vvoda.CB_Заказчик.Value = "" Then
    Forma_vvoda.CB_контрагент.Value = ""
    End If
    
    i = 1
    For Each Dogovor_is_oplatListRow In Dogovor_is_oplatListObj.ListRows
     If Dogovor_is_oplatListRow.Range(2) = Forma_vvoda.CB_Заказчик.Value Then
    If Dogovor_is_oplatListRow.Range.Cells(i, 1) <> Dogovor_is_oplatListRow.Range.Cells(i + 1, 1) Then
    Forma_vvoda.CB_контрагент.AddItem Dogovor_is_oplatListRow.Range.Cells(i, 1)
    End If
    End If
    Next Dogovor_is_oplatListRow
End Sub