Sub Button1_Click()
    Application.Undo
End Sub