Я не хочу прибегать к 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