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