vbaの配列って、横に入っている。縦にしたいとき。
Sub 配列テスト1()
Dim aryY(4) As String
Dim i As Integer
Dim msr As VbMsgBoxResult
i = 0
Range("A1").Select
Do While ActiveCell.Value <> ""
aryY(i) = ActiveCell.Value
msr = MsgBox(aryY(i) & "編集しますか?", vbYesNo)
If msr = vbNo Then
aryY(i) = "OK"
End If
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
Range("B1:B5") = WorksheetFunction.Transpose(aryY)
End Sub
ここ参考にした。↓