Excel VisualBasic Script

Sub CopyOne()
      Worksheets("Sheet1").Activate
      range("A1").Copy range("B1")
End Sub