10個のデータを、セルA1からA10に配列を使って、一括挿入します。
　行方向のセルに値を格納するには2次元配列を定義します。
　また、配列の要素数は格納するセルの数だけ必要です。
　配列の要素は0から始ります。

Sub Sample()

    Dim inpData() As Variant
    Dim i         As Integer

    ReDim inpData(9, 0) As Variant
    For i = 0 To 9
        inpData(i, 0) = "データ" & i
    Next i
    Range("A1:A" & CStr(UBound(inpData) + 1)).Value = inpData

End Sub

　　配列にFor...Nextステートメントを使って要素を格納してから、
　配列の指定された次元で使用できる添字の最大値を返すUBound関数を
　利用して、セルにデータを一括で挿入しています。