Sub Ìàêðîñ1()

Dim ls1 As Long
Dim wb, Db As Worksheet
Set wb = ThisWorkbook.Sheets(1)
Set Db = ThisWorkbook.Sheets(2)

ls1 = Db.Cells(Rows.Count, 1).End(xlUp).Row
wb.Cells(5, 1).Delete
Names.Add Name:="test", RefersTo:="=Ëèñò2!$A$1:$A$" & ls1

wb.Cells(5, 1).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=test"

End Sub

Sub обновить()
Dim arr As Variant

Dim OshW(8) As String
      OshW(0) = "Изменение процесса без отчетности, с требованиями"
      OshW(1) = "Изменение отчета без процесса, с требованиями"
      OshW(2) = "Изменение процесса и отчета, с требованиями"
      OshW(3) = "Изменение процесса без отчетности, без требований"
      OshW(4) = "Изменение отчета без процесса, без требований"
      OshW(5) = "Изменение процесса и отчета, без требований"
      OshW(6) = "Технические изменения"
      OshW(7) = "Не удалось классифицировать"
      u1 = Join(OshW, ",")
      arr = Range("h1:h8")
     'Names.Add "List1", arr
     'u2 = Join(arr, ",")
     ActiveWorkbook.Names.Add Name:="ggg", RefersToR1C1:="=Лист1!R1C8:R8C8"
      Cells(2, 2).Validation.Delete
'Cells(2, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=u1
'Cells(2, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=List1
Cells(2, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ggg

End Sub

Sub обновить()

Dim OshW(8) As String
 OshW(0) = "Изменение процесса без отчетности, с требованиями"
      OshW(1) = "Изменение отчета без процесса, с требованиями"
      OshW(2) = "Изменение процесса и отчета, с требованиями"
      OshW(3) = "Изменение процесса без отчетности, без требований"
      OshW(4) = "Изменение отчета без процесса, без требований"
      OshW(5) = "Изменение процесса и отчета, без требований"
      OshW(6) = "Технические изменения"
      OshW(7) = "Не удалось классифицировать"
      u1 = Join(OshW, ",")
Cells(2, 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=u1

End Sub

Private Sub CommandButton2_Click()

Dim OshB(8), OshW(8), OshQ(8), OshE(4), h, u, Za, v As String
Dim wLastRow, oLastRow, az, ao, dso As Long
Set wb = ThisWorkbook.Worksheets(1)
Set ob = ThisWorkbook.Worksheets(2)
    
      OshW(0) = "Изменение процесса без отчетности, с требованиями"
      OshW(1) = "Изменение отчета без процесса, с требованиями"
      OshW(2) = "Изменение процесса и отчета, с требованиями"
      OshW(3) = "Изменение процесса без отчетности, без требований"
      OshW(4) = "Изменение отчета без процесса, без требований"
      OshW(5) = "Изменение процесса и отчета, без требований"
      OshW(6) = "Технические изменения"
      OshW(7) = "Не удалось классифицировать"
      u = Join(OshW, ",") 'Новая функциональность, Улучшение
      
      OshQ(0) = "Запрос на консультацию"
      OshQ(1) = "Корректировка данных"
      OshQ(2) = "Проведение анализа без доработок"
      OshQ(3) = "Изменение процесса без отчетности, без требований"
      OshQ(4) = "Технические операции"
      OshQ(5) = "Формирование документации"
      OshQ(6) = "Непроизводственные трудозатраты"
      OshQ(7) = "Не удалось классифицировать"
      Za = Join(OshQ, ",") 'Задача
      
      
      wLastRow = wb.Cells(1, 1).CurrentRegion.Rows.Count
      For dsw = 2 To wLastRow
      If wb.Cells(dsw, 3) Like "Задача" Then
      wb.Cells(dsw, 9).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Za
      Else: wb.Cells(dsw, 9).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=u
      End If

Dim OshB(8), OshW(8), OshQ(8), OshE(4), h, u, Za, v As String
Dim wLastRow, oLastRow, az, ao, dso As Long
Set wb = ThisWorkbook.Worksheets(1)
Set ob = ThisWorkbook.Worksheets(2)

oLastRow = ob.Cells(1, 1).CurrentRegion.Rows.Count 'лист "ошибки"
Application.AskToUpdateLinks = False
      OshB(0) = "Отмененные ошибки (в т.ч. Вошедшие в другие задачи)"
      OshB(1) = "Исторические ошибки"
      OshB(2) = "Ошибки переноса кода"
      OshB(3) = "Ошибки тестирования"
      OshB(4) = "Ошибки данных или действий заказчика"
      'OshB(5) = "Ошибки анализа"
      OshB(6) = "Ошибки разработки"
      OshB(7) = "Ошибки проектирования" '"Ошибки внедрения нового функционала"
      'OshB(8) = "Ошибки наложения функционала"
      h = Join(OshB, ",") 'ошибки
      For dso = 2 To oLastRow
      On Error Resume Next
      ob.Cells(dso, 9).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=h
      Next

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OshB(8), OshW(8), OshQ(8), OshE(4), h, u, Z, v As String
Application.AskToUpdateLinks = False
      OshB(0) = "Отмененные ошибки (в т.ч. Вошедшие в другие задачи)"
      OshB(1) = "Исторические ошибки"
      OshB(2) = "Ошибки переноса кода"
      OshB(3) = "Ошибки тестирования"
      OshB(4) = "Ошибки данных или действий заказчика"
      'OshB(5) = "Ошибки анализа"
      OshB(6) = "Ошибки разработки"
      OshB(7) = "Ошибки проектирования" '"Ошибки внедрения нового функционала"
      'OshB(8) = "Ошибки наложения функционала"
      h = Join(OshB, ",") 'ошибки
      OshW(0) = "Изменение процесса без отчетности, с требованиями"
      OshW(1) = "Изменение отчета без процесса, с требованиями"
      OshW(2) = "Изменение процесса и отчета, с требованиями"
      OshW(3) = "Изменение процесса без отчетности, без требований"
      OshW(4) = "Изменение отчета без процесса, без требований"
      OshW(5) = "Изменение процесса и отчета, без требований"
      OshW(6) = "Технические изменения"
      OshW(7) = "Не удалось классифицировать"
      u = Join(OshW, ",") 'Новая функциональность, Улучшение
      OshQ(0) = "Запрос на консультацию"
      OshQ(1) = "Корректировка данных"
      OshQ(2) = "Проведение анализа без доработок"
      OshQ(3) = "Изменение процесса без отчетности, без требований"
      OshQ(4) = "Технические операции"
      OshQ(5) = "Формирование документации"
      OshQ(6) = "Непроизводственные трудозатраты"
      OshQ(7) = "Не удалось классифицировать"
      Z = Join(OshQ, ",") 'Задача
      OshE(0) = "Задача"
      OshE(1) = "Новая функциональность"
      OshE(2) = "Ошибка"
      OshE(3) = "Улучшение"
      v = Join(OshE, ",") 'Вид

    If Not Intersect(Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row), Target) Is Nothing Then
    Application.ScreenUpdating = False
    
     If Target.Value = "Ошибка" Then Cells(Target.EntireRow, 8).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=h Else
     If Target.Value = "Задача" Then Cells(Target.EntireRow, 8).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Z Else Cells(Target.EntireRow, 8).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=u
     Cells(Target.EntireRow, 3).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=v
     End If
    Application.ScreenUpdating = True
    
End Sub