Excel VisualBasic Script

Sub CopyRange2()
    range("A1:A12").Copy range("C1")
End Sub