Excel VisualBasic Script

Sub pasteDemo()
     ActiveSheet.Paste Destination:=range("G4")
End Sub