代码运行后保持撤消

Question

我在下面的代码更新了＆＃34;最后编辑的＆＃34;但是，每次代码运行时，它都会删除标准的Excel撤消功能。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Range("$B30:$O2000"), Target) Is Nothing Then
        Range("A" & Target.Row).Value = Format(Date, "dd-mmm-yy")
    End If

End Sub

有没有办法保持撤消并仍然使用代码？或跟踪范围的最后更新的其他方式。