Создание выпадающего списка в VBA Excel с использованием диспетчера имен

Public Sub addRow(row)
    Dim wb As Workbook
    Dim wsh As Worksheet
    
    Set wb = ActiveWorkbook
    Set wsh = wb.Worksheets("главная")
    
    wb.Application.CutCopyMode = False
    wsh.Rows(row).Insert
    
    With wsh.Range("D" & row).Validation
        .Delete
        .add Type:=xlValidateList, Formula1:=[данные1]
    End With
        
    With wsh.Rows(row).Font
        .Name = "Arial Narrow"
        .Size = 10
    End With
    
    With wsh.Range("B" & row & ":M" & row).Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .Weight = xlThin
    End With
    
End Sub

 Formula1:="=данные1"

.add Type:=xlValidateList, Formula1:="=ДВССЫЛ(ПРОСМОТР(D" & row & "; данные1; данные2))"

Private Sub CommandButton1_Click()
    Dim wb As Workbook
    Dim wsh As Worksheet
    Dim row As Integer
    
    Set wb = ActiveWorkbook
    Set wsh = wb.Worksheets(1)
    row = wsh.Cells(1, 1).Value
    
    wsh.Rows(row).Insert
    
    wsh.Cells(row, 2).Value = row
        
     With wsh.Cells(row, 3).Validation
        .Add Type:=xlValidateList, Formula1:="=ссылки1"
    End With
    
    q = wsh.Cells(1, 11).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    w = wsh.Cells(row, 3).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    e = wsh.Range(Cells(2, 11), Cells(5, 11)).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    
    With wsh.Cells(row, 4).Validation
        .Add Type:=xlValidateList, Formula1:="=СМЕЩ(" & q & "; ПОИСКПОЗ(" & w & "; " & e & "; 0); 1; СЧЁТЕСЛИ (" & e & ", " & w & "); 1)"
    End With
    
    wsh.Cells(1, 1).Value = wsh.Cells(1, 1).Value + 1
End Sub