VBA from array to worksheet

[citychap26]

Hi All,

Want to copy from an array to excel worksheet. Is this the best way:

Sub test()

    Dim vARRAY(10000) As Variant
    Dim i As Integer
    Dim ws As Worksheets
    
    
    For i = 0 To 9999
        vARRAY(i) = i
    Next

    Worksheets("Sheet1").Range("A1", Range("A1").Offset(i, 0)).Value = Application.Transpose(vARRAY)
    

End Sub

Cheers

SK