disappear undo

[MILTINO]

Greetings I have a very large book and with macros they work well, the problem I have is that in a sheet when I delete data from cells in the first instance the Undo is activated the arrow but then when I select any other cell the UNDO is deactivated
I allow myself to send in the event that may be causing this problem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LimiteSuperior As Long, LimiteIzquierdo As Long
If Not Application.Intersect(Target, Range("AQ13:AQ25")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-12, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
If Not Application.Intersect(Target, Range("AQ26:AQ282")) Is Nothing Then
Sheets("Hoja3").Visible = True
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = True
Let LimiteSuperior = Target.Offset(-25, 0).Top
Let LimiteIzquierdo = Range("E1").Left
With ActiveSheet.Shapes("IMAGENPU")
.Top = LimiteSuperior
.Left = LimiteIzquierdo
End With
Else
Sheets("PRESUPUESTOS").Shapes("IMAGENPU").Visible = False
Sheets("Hoja3").Visible = False
End If
End If
End Sub

 

[SpillerBD]

After a Macro is executed, the "Undo" steps prior to the Macro are unavailable.

 

[MILTINO]

I delete data manually independent of the macro,
without the macro it works I delete data manually and I can recover it with Undo
Thank you

 

[MILTINO]

I delete data manually independent of the macro,
without the macro that corresponds to the event Private Sub Worksheet_SelectionChange(ByVal Target As Range) it works fine, since I delete data manually and I can recover it with Undo
Thank you

 

[MARK858]

As @SpillerBD has stated running a macro that interacts with the worksheet clears the Undo stack, there is nothing that you can do about that.
If you were trying to just undo the last action you had carried out in the macro then you could use Application.Undo, but it won't help in your case.

 

[MILTINO]

Greetings, what happens is that I manually delete data and normally the undo is activated
Everything got complicated when I enter a Private Sub Worksheet_SelectionChange event which I don't use to delete data, I keep manually deleting.
But when I do or delete data undo disappears

 

[MARK858]

But when I do or delete data undo disappears

Yes as we have already stated when VBA interacts with a sheet the Undo stack is cleared, there is NOTHING you can do about this behaviour.
It doesn't matter what action the VBA is carrying out, the Undo stack is cleared.