Inquietud sobre excel

Se pueden armar las listas aparte vincular la primera lista desplegable a una celda y asignarle una macro que dependiendo del valor de esa celda asigne el rango de entrada de la segunda lista desplegable.
Ejemplo en el rango E2:E4 tendriás: A, B y C
Y ese sería en rango de entrada para la primera lista desplegable y la vincularías con la celda E1. Hasta acá debes observar que al seleccionar A la celda E1 toma el valor de 1, al seleccionar B toma el valor de 2 y al seleccionar C toma el valor de 3. De este cambio en el valor de la celda vinculda nos aprovecharemos para crear el rango de entrada de la segunda lista desplegable. En las siguientes columnas creamos las valores de A, B y C en orden ascedente.
En el rango F2:F4 tendrías: 10, 30 y 90 (los valores de A). En el rango G2:G4 tendrías los valores de B y en el rango H2:H4 los valores de C. Asignando la siguiente macro a la primera lista desplegable debe funcionar:
Sub Macro6()
    ActiveSheet.Shapes("Drop Down 2").Select
    Select Case Range("E1").Value
    Case 1
        With Selection
            .ListFillRange = "$F$2:$F$4"
            .LinkedCell = "$F$1"
            .DropDownLines = 3
            .Display3DShading = False
        End With
    Case 2
        With Selection
            .ListFillRange = "$G$2:$G$4"
            .LinkedCell = "$G$1"
            .DropDownLines = 3
            .Display3DShading = False
        End With
    Case 3
        With Selection
            .ListFillRange = "$H$2:$H$4"
            .LinkedCell = "$H$1"
            .DropDownLines = 3
            .Display3DShading = False
        End With
    Case Else
        Exit Sub
    End Select
Range("D10").Select
End Sub

Mil gracias experto por su explicación esta muy buena y aprendí algo nuevo pero para lo que necesito no lo logro ajustar, ¿es posible que me envíe su correo electrónico para enviarle un adjunto en excel del cuadro que tengo y así explicarme mejor?
Mil gracias por su ayuda y colaboración
Leo