Подскажите пожалуйста как организовать автозаполнение нижестоящих ячеек с условием.

[KOSTIK1]

Превосходно!
Как только можно это всё "умножить" тоесть в "C","D"и"E" чтобы были 3 таких столбика, каждый со своим списком ниже на пару ячеек.

[IgorGO]

однако...
правила теперь такие:
сначала заполняемые ячейки столбика (заполняемые - это ячейки с проверкой ввода), за этими ячеками, в той же колонке, список допустимых значений, за списком пусто. между заполняемыми ячейками и списком минимум одна пустая строка (без проверки вводимых данных и без данных). в таком режиме могут работать все колонки.

[KOSTIK1]

Большое спасибо! Это именно то что меня интересовало на данный момент.
Если можно вопрос для "повышения образованности" - я так понял что теперь эта функция действует на весь лист, поэтому, все заполняемые ячейки столбика (заполняемые - это ячейки с проверкой ввода) согласно этим условиям будут заполняться автоматически, но как можно будет отключить эту возможность на определённых столбцах, например "В" и "F", чтобы там заполнял я только в ручную? Что нужно добавить или изменить в коде? Спасибо, с уважением Костик.

[IgorGO]

вот так исправить начало программы:

Dim LC As Integer
Const Excluded As String = "(2)(6)"


Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  On Error GoTo EnaEve
  LC = Target.Column
  If InStr(Excluded, "(" & Target.Column & ")") > 0 Then GoTo EnaEve
  If Target.Validation.Type > 0 Then FillTabl
EnaEve:
  Application.EnableEvents = True
End Sub

[KOSTIK1]

Всё работает отлично! Ещё раз ОГРОМНОЕ СПАСИБО!!!