列方向に移動してコピーの繰り返し vba

VBAで　なければ、

駄目ですか？

数式で　簡単に、
実現　可能ですが？

No.1です

間違えました。for文の中は以下にしてください

resultList(i, j) = paramList(1, ((j - 1) * 15) + i)

実機で試してないので細かなミスはあるかもしれませんが以下のような感じでいかがでしょう

sub convert()

dim paramList as Variant
paramList = Range(表1のエリア)

dim resultList(1 to 15, 1 to 8) as Variant

dim i as Long,j as Long
for i = 1 to Ubound(resultList)
for j = 1 to Ubound(resultList,2)
result(i,j) = paramList(1,(i -1)*15 +j)
next
next

dim firstRow as Long,firstCol as Long
firstRow = 表2の最初の行
firstCol = 表2の最初の列
Range(Cells(firstRow,firstCol), _
Cells(firstRow + Ubound(resultList) - 1, _
firstCol + Ubound(resultList,2) - 1)) = resultList
end sub