Гуру подскажите например

Удаляю диапозон ячеек кнопкой Commandbutton введя цифру например 1 в TextBox

Private Sub CommandButton1_Click()

If TextBox1 = 1 Then Range("A7:B8").Delete

End Sub

Далее есть вторая кнопка Commandbutton2 которая возвращает(отменяет) действие первой кнопки

Private Sub CommandButton2_Click()

Application.Undo

End Sub

Вот 2 кнопка не работает, реально помогите как правильно сделать