listas anidadas

Hola, tengo unas listas anidadas

EN B2 , C2, D2, E2

Y cuando selecciona la lista de la celda B2 las demás se ponen en blanco.

con el siguiente código 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
    Range("B2:D2") = " "
    End If
    
End Sub

Como puedo hacer que las listas anidadas estén disponibles en las siguientes filas y también funcione el código para esas filas?

un saludo.