Excel VisualBasic Script

Sub CopyRange()
    range("A1:A12").Select
    Selection.Copy
    range("C1").Select
    ActiveSheet.Paste
End Sub