Solved: Copy paste special

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

This worked for me:
[VBA]Sub Macro1()
ActiveCell.Copy
Range(ActiveCell.Offset(1), ActiveCell.Offset(1)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[/VBA]

Thanks Feathers212, it works 100%