Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Application.EnableEvents = True
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 44) Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
Target.Resize(, 4).ClearContents
Application.EnableEvents = True
End If
End Sub