Sub RxStatProc()

'заполнение динамического массива, вывод значений на лист
Dim arr_r As Integer            ' номер строки в массиве
Dim arr_c As Integer            ' номер столбца в массиве



Dim RowCntr As Single  ' всего строк
Dim ColCntr As Single  ' всего колонок
Dim MyArr() As Variant   ' объявил динамический массив

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
RowCntr = Selection.Rows.Count
ColCntr = Selection.Columns.Count

Debug.Print RowCntr
Debug.Print ColCntr

arr_r =  0 
arr_c =  0 

ReDim MyArr( 0  To arr_r,  0  To arr_c)
' определил размерность динамического массива

For arr_r =  0  To RowCntr -  1 
    For arr_c =  0  To ColCntr -  1 
    ReDim Preserve MyArr(arr_r, arr_c)
    ' переопределил границы динамического массива, сохранив значения существующих элементов
    MyArr(arr_r, arr_c) = ActiveCell.Offset(arr_r, arr_c).Value
    Debug.Print MyArr(arr_r, arr_c)
    Next arr_c
Next arr_r


' вывод массива
Worksheets( 1 ).Add
Range("A1").Select
For i =  0  To UBound(MyArr,  1 )
    For k =  0  To UBound(MyArr,  2 )
    ActiveCell.Offset(i, k).Value = MyArr(i, k)
    Next k
Next i
End Sub