vba создание выпадающего списка по переменной Range

Question

Я много искал сейчас, и я не понимаю, в чем проблема. Другие люди сделали то же самое, и это сработало.

Вот мой Кодекс, было бы здорово, если бы кто-то мог мне помочь. Заранее спасибо!

Ошибка возникает в строке «.Add Type»

Sub dropDownMenu()
    Do While (Worksheets("x").Cells(counter + 2, 1) <> "")
        counter = counter + 1
    Loop

    Worksheets("y").Range("D36:D36") = ""
    With Worksheets("y").Range("D36:D36").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                   xlBetween, Formula1:="=x!A2:A" & 1 + counter & ""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = "xxx"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub