スキルアップ・問題解決なら、モーグにおまかせ！

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関数を利用して、セルにデータを一括で挿入しています。