макрос не позволяет отменять действия

[Kraimon]

У меня появилась такая проблема, на листах где присутствуют данные макросы нельзя отменять действия, т.е если случайно я удалил текст в ячейке, вернуть обратно текст уже не получается.
Вот макросы которые задействованы на листах:
лист 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("D1:H500")) Is Nothing Then
Target = StrConv(Target, 3)
Application.EnableEvents = True
Exit Sub
End If
Dim lr&
lr = Sheets("âûáûëè").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
Target.EntireRow.Copy Sheets("âûáûëè").Rows(lr)
Target.EntireRow.Delete
End If
Application.EnableEvents = True '
End Sub

лист 2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&
lr = Sheets("âûáûëè").Cells.Find(What:=" *", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
With Me
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [a:a]) Is Nothing And Target.Value = " " Then
.Rows(Target.Row).Copy Sheets("âûáûëè").Rows(lr)
.Rows(Target.Row).Delete
End If
End With
End Sub

лист 3

Private Sub Worksheet_Change(ByVal Target As Range)
With Me.UsedRange
.Font.Size = 7
.WrapText = False
End With
End Sub

[motorway]

По-моему, для Эксела это общая ситуация