VBAで指定シート上の３つのデータ範囲を１つの配列に格納する方法を出して

Sub StoreRangesOnSheetToArray()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください

    ' データ範囲1を指定
    Dim range1 As Range
    Set range1 = ws.Range("A1:A5") ' データ範囲を適宜変更してください

    ' データ範囲2を指定
    Dim range2 As Range
    Set range2 = ws.Range("B1:B5") ' データ範囲を適宜変更してください

    ' データ範囲3を指定
    Dim range3 As Range
    Set range3 = ws.Range("C1:C5") ' データ範囲を適宜変更してください

    ' 3つのデータ範囲を結合して1つの範囲にする
    Dim combinedRange As Range
    Set combinedRange = Union(range1, range2, range3)

    ' 結合した範囲の値を配列に格納
    Dim dataArray As Variant
    dataArray = combinedRange.Value

    ' 配列のデータを表示
    Dim i As Long
    For i = LBound(dataArray) To UBound(dataArray)
        Debug.Print dataArray(i, 1)
    Next i
End Sub