配列の要素数を固定せずにループで配列の要素を書き出す

Sub Array_Loop()
Dim Col As Long, Cnt As Long
Dim Array_Youso As Variant

' 配列に値を格納
Array_Youso = Array("AAA", "BBB", "CCC", "DDD", "EEE")

' 配列の範囲
Debug.Print "配列の範囲:"; LBound(Array_Youso) & "～" & UBound(Array_Youso)

' 結果
For Cnt = 0 To UBound(Array_Youso)
Col = Cnt + 1
Cells(Col, 1).Value = Array_Youso(Cnt)
Next Cnt

End Sub