Determine address of cell range and dimension of the cell ranges

If you had gaps between the tables, you could use

Sub Macro1()
Dim MyArray
Dim N As Long

MyArray = Split(Sheets("Sheet1").Cells.SpecialCells(xlCellTypeConstants, 23).Address, ",")
For N = 0 To UBound(MyArray)
    Sheets("Sheet2").Cells(N + 2, 1) = MyArray(N)
    Sheets("Sheet2").Cells(N + 2, 2) = Range(MyArray(N)).Rows.Count
    Sheets("Sheet2").Cells(N + 2, 3) = Range(MyArray(N)).Columns.Count
Next N
End Sub

Hi Mrice,

What if the tables do not have gaps in between? And what if the number of tables will change according to month for example?