Rückgängibutton für Makro's

ich habe folgendes Anliege.
Ich habe Makros die Zeilen einfügen bzw. löschen.
Wie kann ich da einen Rückgängigbutton programmieren?

Code zum Löschen:

.
.
.
Dim Ze%, Sp%
Ze = ActiveCell.Row: Sp = 1
Range(Cells(Ze, Sp), Cells(Ze, Sp + 26)).Select
Selection.Delete Shift:=xlUp
.
.
.

Code zum Einfügen:

.
.
.
Dim Ze%, Sp%
Ze = ActiveCell.Row: Sp = 1
Range(Cells(Ze, Sp), Cells(Ze, Sp + 26)).Select
Selection.Copy
Selection.Insert Shift:=xlDown
activesheet.Paste
.
.
.
Danke für jede Hilfe
Gruß Lukas