如何限制脚本范围从清除整列到列和行？

Question

我有一个脚本，用于在更改单元格内容时清除某些列。有人可以建议我如何阻止脚本清除整个列，而只是清除与编辑的单元格在同一行上的单元格的内容而不是？这是当前的脚本，非常感谢任何建议。

Private Sub Worksheet_Change(ByVal Target As Range)
'clear contents of dependent cells
On Error Resume Next
If Target.Validation.Type = 3 Then
  Application.EnableEvents = False
  Select Case Target.Column
    Case 2  'clear columns C and D and E
      Range(Target.Offset(0, 1), _
        Target.Offset(0, 3)).ClearContents
    Case 3  'clear column D and E
      Range(Target.Offset(0, 1), _
        Target.Offset(0, 2)).ClearContents
    Case 4 'clear column E

  End Select
End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub

End Sub