Excel VisualBasic Script

Sub ArrayToColumns()
    Dim MyArray()
    Dim Cols As Integer
    Cols = 5
    ReDim MyArray(1 To Cols)
    Cells.Clear
    i = 1
    For c = 1 To Cols
        MyArray(c) = i
        i = i + 1
    Next c
    Range(Cells(1, 1), Cells(1, Cols)) = MyArray
End Sub