Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer
Dim Target As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("b5, B11,B24,B25,B28,c28, c29, b30, c30, b31, c31, d28, e28,d29, e29, d30, e30, b33, c33, d33, e33"), Target) Is Nothing Then
Application.EnableEvents = False
Range("b11").ClearContents
Range("b24").ClearContents
' [...]
Application.EnableEvents = True
End If
End Sub