Be able to REDO after macro runs if needed

[bamaisgreat]

I have the code below that i was hoping that there could be something modified so I could hit undo if the rows were not added at the correct place.

Sub Insert4()
    Range(ActiveCell, ActiveCell.Offset(3, 14)).Select
    Selection.EntireRow.Insert
    For n = 7 To 10
        Selection.Borders(n).LineStyle = xlContinuous
        Selection.Borders(n).Weight = xlMedium
    Next
    For n = 11 To 12
        Selection.Borders(n).LineStyle = xlContinuous
        Selection.Borders(n).Weight = xlThin
    Next
End Sub

 

[Dryver14]

In essence there is no take back, that said you could use a message box after inserting the rows with yes no options if yes carry on if not exit sub.

 

[Dryver14]

I mean of course delete the inserted rows then exit sub