'Кнопка Добавить данные в комбобокс
Private Sub Btn_Add_Cmb_Click()

'On Error Resume Next 'отключаем останов при ошибке
  'проверка на заполнение полей
If Me.Cmb_МаркаАвто = "" Then: MsgBox "Отсутствуют данные", 16, "Сообщение": Exit Sub
    With Me
        МаркаАвто = Cmb_МаркаАвто
    End With
    With Worksheets("База")
        If .Columns(4).Find(МаркаАвто, , xlValues, xlWhole) Is Nothing Then
             LastRow = .Cells(Rows.Count, 4).End(xlUp).Row + 1
            .Cells(LastRow, 4) = Cmb_МаркаАвто
'            .Range(Cells(2, 4), Cells(LastRow + 1, 4)).Borders.LineStyle = xlContinuous ' обрамление ячеек
'             MsgBox " Новая марка а/м успешно добавлена в базу данных! ", vbLf & "Строка в базе: " & LastRow
            .Range(.Cells(2, 4), .Cells(LastRow + 1, 4)).Borders.LineStyle = xlContinuous ' обрамление ячеек
             MsgBox " Новая марка а/м успешно добавлена в базу данных! " & vbLf & "Строка в базе: " & LastRow

          Else
             MsgBox "Данный а/м есть в базе данных!", vbCritical, "Сообщение": Exit Sub ' Запрет на ввод в базу данных а/м,которые уже присутствуют
        End If
    End With
'  обновление комбобокса
LastRow = Sheets("База").Cells(Rows.Count, 4).End(xlUp).Row 'Нашли последнюю заполненную строку по столбцу D
    n = 0
    With Me.Cmb_МаркаАвто 'Применительно к указанному КомбоБоксу
        For i = 2 To LastRow 'Цикл со второй по последнюю строку
            .AddItem "" 'Добавили пустую строку в КомбоБокс
            .List(n, 0) = Sheets("База").Cells(i, 4).Value 'Заполнили её значением из текущей (в цикле) ячейки столбца D
            n = n + 1 'Увеличили номер строки в КомбоБоксе
        Next
    End With
End Sub

Range(.Cells(2, 4), .Cells(LastRow, 4)).Borders.LineStyle = xlContinuous ' обрамление ячеек

'Кнопка Добавить данные в комбобокс
Private Sub Btn_Add_Cmb_Click()
If Cmb_МаркаАвто = "" Then: MsgBox "Отсутствуют данные", 16, "Сообщение": Exit Sub
If Cmb_МаркаАвто.ListIndex >= 0 Then MsgBox "Данный а/м есть в базе данных!", vbCritical, "Сообщение": Exit Sub ' Запрет на ввод в базу данных а/м,которые уже присутствуют
Cmb_МаркаАвто.AddItem Cmb_МаркаАвто
With Range("База!D2").Resize(Cmb_МаркаАвто.ListCount)
  .Value = Cmb_МаркаАвто.List
  .Borders.LineStyle = xlContinuous
End With
End Sub