output1to100_6

Sub output1to100_6()

    Dim myArray(1 To 100, 1 To 1) As Integer, i As Integer
    
    For i = 1 To 100
        myArray(i, 1) = i
    Next
    
    Range("A1:A100") = myArray

End Sub