Delete und mehr als 3 bedingte Formatirungen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim EBereich As Range
Set EBereich = Range("a1:AI100")
If Intersect(Target, EBereich) Is Nothing Then Exit Sub
ActiveSheet.Unprotect

If Target.Value = 1 Then
Target.Interior.ColorIndex = 4
'Target.Interior.Pattern = xlSolid
End If

If Target.Value = 2 Then
Target.Interior.ColorIndex = 6
'Target.Interior.Pattern = xlSolid
End If

If Target.Value = 3 Then
Target.Interior.ColorIndex = 3
'Target.Interior.Pattern = xlSolid
End If

If Target.Value = 4 Then
Target.Interior.ColorIndex = 5
'Target.Interior.Pattern = xlSolid
End If

If Target.Value = "" Then
Target.Interior.ColorIndex = 35
'Target.Interior.Pattern = xlSolid
End If
ActiveSheet.Protect
End Sub

nun wenn ich im selben bereich einige zellen Markiere und dann mit der Delete Taste den inhalt löschen will kommt der Debugger und geht zum bereich If Target.Value = 1 Then
Wenn ich in der Activen Zelle den Inhalt löschen will gibts kein problem.

Wie kann ich das lösen, dass auch in einem markierten Bereich der Inhalt gelöscht werden kann.