Sub AddBase() 'Добавление новой записи

Set ShBase = ThisWorkbook.Worksheets("Клиентская база")
Set BaseListObj = ShBase.ListObjects("АКБ_tb")

    Set BaseListRow = BaseListObj.ListRows.Add

BaseListRow.Range(2) = Base.cbx_ts.Value ' здесь ошибка
BaseListRow.Range(3) = Base.txb_suppl.Value
BaseListRow.Range(4) = Base.txb_nameTT.Value
BaseListRow.Range(5) = Base.txb_format.Value
BaseListRow.Range(6) = Base.cbx_territory.Value
BaseListRow.Range(7) = Base.cbx_city.Value
BaseListRow.Range(8) = Base.txb_adress.Value
BaseListRow.Range(9) = Base.cbx_type.Value
BaseListRow.Range(10) = Base.cbx_status.Value
BaseListRow.Range(11) = Base.txb_comment.Value
BaseListRow.Range(12) = Base.cbx_manager.Value
End Sub