Option Explicit
Sub Procedure()
    Dim sheet As Worksheet
    Set sheet = ThisWorkbook.Sheets("Лист1")
    
    'Определяем последнюю строку
    Dim EndRow As Integer
    EndRow = sheet.UsedRange.Row + sheet.UsedRange.Rows.Count - 1
    
    'В массив присваиваем первый диапазон Range(Cells(1, 1), Cells(EndRow, 1))
    Dim Arr()
    Arr = sheet.Range(Cells(1, 1), Cells(EndRow, 1))
End Sub

Option Explicit
Sub Procedure()
    Dim sheet As Worksheet
    Set sheet = ThisWorkbook.Sheets("Лист1")
    
    'Определяем последнюю строку
    Dim EndRow As Integer
    EndRow = sheet.UsedRange.Row + sheet.UsedRange.Rows.Count - 1
    
    'В массив присваиваем первый диапазон Range(Cells(1, 1), Cells(EndRow, 1))
    Dim Arr()
        
    If EndRow = 1 Then
        ReDim Arr(1 To 1, 1 To 1)
        Arr(1, 1) = sh.Cells(1, 1)
    Else
        Arr = sh.Range(Cells(1, 1), Cells(EndRow, 1))
    End If
End Sub