Вставлять скопированные значения по условию

[segail]

Здравствуйте.
Помогите выполнить условие.
На листе есть две кнопки одна копирует данные, другая вставляет (значения).
Необходимо, чтобы Макрос2 срабатывал лишь тогда, когда было произведено копирование, потому как если вставка не активна то при случайном выполнение Макрос2 происходит ошибка.

Sub Макрос1()
    Selection.Copy
End Sub

Sub Макрос2()
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[jillitil]

Sub Макрос2()
  If Application.CutCopyMode = 0 Then Exit Sub
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[segail]

jillitil Благодарю за помощь.