Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$A$3" Then
Target.Offset(, 1).Resize(, 5) = Empty
End If
If Target.Address = "$B$3" Then
Target.Offset(, 1).Resize(, 4) = Empty
End If
If Target.Address = "$C$3" Then
Target.Offset(, 1).Resize(, 3) = Empty
End If
If Target.Address = "$D$3" Then
Target.Offset(, 1).Resize(, 2) = Empty
End If
If Target.Address = "$E$3" Then
Target.Offset(, 1) = Empty
End If
Application.EnableEvents = True
End Sub