Excel VisualBasic Script

Sub ArrayToRows2()
    Dim Rows As Long
    Dim MyArray()
    Rows = 65536
    ReDim MyArray(1 To Rows, 0 To 0)
    Cells.Clear
    i = 1
    For r = 1 To Rows
        MyArray(r, 0) = i
        i = i + 1
    Next r
    Range(Cells(1, 1), Cells(Rows, 1)) = MyArray
End Sub