报错求错，功能已完整

小小零号

下面是表格跟代码：

最后修改时间	货品名称	货号	出库数量	入库数量

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Row >= 3 Then '判断现在操作的单元格行数是否大于3
            If Target.Column > 2 And Target.Column < 4 Then '判断现在操作的单元格列数是否在第二至第四列
            Cells(Target.Row, "A").ClearContents '清空内容
            If Target.Value <> "" Then '判断是清除还是修改
                Cells(Target.Row, "A") = Now() ' 填充时间
                End If
            End If
      End If
End Sub
我已经达到了我的基本要求，就是在货号、出库数量、入库数量操作时，都会自动将当前系统时间填充到同一行的最后修改时间中，但在实际用的时候，批量清除的时候会报错：类型不匹配，
请问大神们应该怎么处理，才能在不改变原有功能的情况下能批量删除

abc123281

If Target.Column >= 2 And Target.Column <= 4 Then '判断现在操作的单元格列数是否在第二至第四列

gdljqi

除上述改为>=2，<=4外，以下代码逻辑：
Cells(Target.Row, "A").ClearContents '清空内容
            If Target.Value <> "" Then '判断是清除还是修改
                Cells(Target.Row, "A") = Now() ' 填充时间
                End If
改为以下即可：
Cells(Target.Row, "A") = Now() ' 填充时间