Sub m()
'//--------------------------------------------------------------------------------------------------------------------
Dim lastUsedRow As Integer, i As Integer
Dim str As String
Dim Array_1() As Single
lastUsedRow = Worksheets("Лист1").Cells(Worksheets("Лист1").Rows.Count, 1).End(xlUp).Row ' нахожу посл. строку в столбце 1 листа Лист1
ReDim Array_1(lastUsedRow) ' задаю размер массива

For i = 1 To lastUsedRow
       Array_1(i) = Worksheets("Лист1").Cells(i, 1) ' заполняю массив данными из 1 столбца
Next

'если надо глянуть что получилось
For i = 1 To lastUsedRow
       str = str & Array_1(i) & Chr(13)
Next
MsgBox "Данные из 1ого столбца:" & Chr(13) & str
'//--------------------------------------------------------------------------------------------------------------------
' вариант с двумерным массивом
Dim max As Integer ', i As Integer, j As Integer
Dim Array_123() As Single ' будущий двумерный массив для 3ёх столбцов
Dim Array_lengthArray(1 To 3) As Integer ' массив длин столбцов
Dim str123 As String 'строка для вывода результатов на экран

'можно заполнять в цикле, усли столбцов будет больше 3ёх
Array_lengthArray(1) = Worksheets("Лист1").Cells(Worksheets("Лист1").Rows.Count, 1).End(xlUp).Row
Array_lengthArray(2) = Worksheets("Лист1").Cells(Worksheets("Лист1").Rows.Count, 2).End(xlUp).Row
Array_lengthArray(3) = Worksheets("Лист1").Cells(Worksheets("Лист1").Rows.Count, 3).End(xlUp).Row
'поиск макс эл-та
max = Array_lengthArray(1)
For i = 1 To 3
       If Array_lengthArray(i) > max Then
           max = Array_lengthArray(i)
       End If
Next
'заполняем наш массив
ReDim Array_123(1 To max, 1 To max)
For i = 1 To max
       For j = 1 To 3
           Array_123(i, j) = Worksheets("Лист1").Cells(i, j)
       Next
Next

'если надо глянуть что получилось   
For i = 1 To max
       For j = 1 To 3
           str123 = str123 & Array_123(i, j) & ","
       Next
       str123 = str123 & Chr(13)
Next
MsgBox "Данные из 3ёх столбцов:" & Chr(13) & str123
'//--------------------------------------------------------------------------------------------------------------------
End Sub

Sub попроще()
     Dim a(), b()
      
     a = Sheets(1).[a1].CurrentRegion.Value
     b = Sheets(2).[a1].CurrentRegion.Value

     MsgBox a(2, 3)
     MsgBox b(3, 2)
      
End Sub