Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address = "$B$4" Then
[d3:e59].Interior.ColorIndex = xlNone
Select Case c.Value
Case "A", "D", "E"
[d3:e59].Interior.ColorIndex = xlNone: [d3:e59] = ""
Case "B", "C"
[d3:e59].Interior.ColorIndex = 15
End Select
End If
End Sub