Ответ 1
application.cutcopymode = false
Я не хочу прибегать к SendKeys "{ESC}"
application.cutcopymode = false
Попробуйте этот код в качестве примера. Ключевой линией является "Application.CutCopyMode = False"
Sub Test()
Range("A1").Copy
MsgBox "View Marching Ants"
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub