Hi Guys
I'm using the macro below for copying and pasting, it works fine, but the cell copied blink waiting for me to press 'enter' or 'esc' to finish the instruction. Is there any instruction or command which I can add to stop the blinking and end the macro?

Sub CopyPaste()
Dim A As Integer
ActiveCell.Copy
Range(ActiveCell.Offset(1), ActiveCell.Offset(1)).Select
ActiveCell.PasteSpecial Paste:=xlFormula
End Sub

Thanks