Несколько раскрывающихся списков

Question

У меня проблемы с решением нескольких выпадающих списков. Я решил это на Excel, но я не могу решить это в VBA. Эти выпадающие списки должны применяться в макросе Separator, который сейчас работает хорошо.

Это формула проверки данных, которая работает:

=IFS(L2=$O$2,B,L2=$P$2,Co,L2=$Q$2,E,L2=$R$2,En,L2=$S$2,I_T,L2=$T$2,O,L2=$U$2,P_B,L2=$V$2,Sp,L2=$W$2,SII)

Вот мой код в VBA, без условий выпадающего списка

Sub Generar_informes()

Dim i As Double
Dim Ini As Double
Dim Fin As Double
Dim JT As String
Dim JF As String
Dim Tamaño As String


'Desactivamos actualización de pantalla
Application.ScreenUpdating = False
Sheets("Pivot Table").Select
With Sheets("Pivot Table")

'indicamos la fila siguiente a la primera fila con datos
Ini = Columns(1).Range("A1").End(xlDown).Row
'Contamos los todas los comerciales de la tabla dinámica1
Fin = .PivotTables(1).PivotFields("Account Owner Name").VisibleItems.Count

'Inciamos un bucle donde por cada comercial generamos informe
For i = 1 To Fin
'para mostrar el informe debemos hacer referencia a los campos de valores
.Cells(i + Ini, 2).ShowDetail = True
'Nombramos la pestaña con el nombre del comercial.
ActiveSheet.Name = .Cells(i + Ini, 1).Value
'Seleccionamos la hoja con el detalle del comercial
ActiveSheet.Select
'Movemos la hoja a un libro nuevo
ActiveSheet.Move
'Cambiamos color de celdas a modificar por los comerciales
Range("D1:F1").Interior.Color = RGB(255, 153, 0)

'Agregamos la lista desplegable Tamaño
    Tamaño = Columns("D:D").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Pequeño(menos de 20M€),Mediano (de 20 a 1000M€),Grande (más de 1000M€)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With



ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name

ActiveWorkbook.Close False
Next i
End With
Application.ScreenUpdating = True
MsgBox "¡Ficheros generados correctamente!"

End Sub

Я пытался несколькими способами создать несколько условных выпадающих списков, но я не могу решить их.

Примите во внимание Макрос генерирует разные файлы Excel, в которых множественный условный раскрывающийся список должен появиться в столбце E, и в зависимости от того, какое значение (строка) находится в столбце L, раскрывающийся список может быть другим.

Заранее спасибо!