如何在VBA中使用数据验证来创建从属列表？

Question

我正在使用上面的代码创建一个下拉列表：

            For Each Value In wb1.Range("B6:B" & LastRow)
            Lista = Lista & "," & Value
            Next Value

            Lista2 = Lista & "," & ",A,B,C,D,E,F,G"

            With Cells(30,39).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=Lista2
            End With

但是现在我正在尝试使用VBA创建从属列表。我想为列表添加条件，具体取决于左列的值。

如果左列值为“ AL”或“ SD”，我希望具有Lista和“，”＆“，A，B”列表选择；如果是“ PC”，我希望具有“ C，D，E”和如果是“ LV”，我希望它有“ F，G”

有人可以帮我吗？