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