Работа с выделенной областью как с двумерным массивом

Sub Procedure_1()
 
    Dim vArray() As Variant
    
    'Помещаем в массив vArray выделенный массив с листа Excel
    vArray = Selection.Value
 
End Sub

Sub Procedure_2()
 
    Dim dArray() As Double
    Dim lRowsCount As Long, lColumnsCount As Long
    Dim i As Long, j As Long
    
    'Берём количество строк и количество столбцов в массиве Excel.
    lRowsCount = Selection.Rows.Count
    lColumnsCount = Selection.Columns.Count
    
    'Задаём размер массива.
    'С массивом можно начать работать только после того,
    'как будет задан его размер. Размера массива - это количество строк
    'и столбцов в нём.
    ReDim dArray(1 To lRowsCount, 1 To lColumnsCount)
    
    'Переносим в массив dArray данные из массива Excel.
    For i = 1 To lRowsCount Step 1
        For j = 1 To lColumnsCount Step 1
        
            'Помещаем в массив dArray выделенный массив с листа Excel
            dArray(i, j) = Selection.Cells(i, j).Value
            
        Next j
    Next i
 
End Sub

Sub Procedure_3()
 
    Dim rRange As Excel.Range
    
    'Даём имя выделенному диапазону ячеек.
    Set rRange = Selection
        
    'Получаем данные из выделенного диапазона.
    'Чтобы увидеть результат работы кода: View - Immediate Window.
    Debug.Print rRange.Cells(1, 1).Value
    
End Sub