Excel VisualBasic Script

Sub CopyRange()
    range("A1").Copy range("B1")
End Sub