' Таблица - именованный диапазон "MyTable"
For Each nm In ActiveWorkbook.Names
    If nm.Name = "MyTable" Then Exit For
Next
aTable = nm.RefersToRange.Value
StartR = nm.RefersToRange.Row ' Строка начала диапазона
StartC = nm.RefersToRange.Column ' Столбец начала диапазона
StartWriteR =  2  + StartR + UBound(aTable,  1 ) ' Копируем ниже на 2 строки
Range(Cells(StartWriteR, StartC), Cells(StartWriteR + UBound(aTable,  1 ) -  1 , StartC + UBound(aTable,  2 ) -  1 )).ClearContents
For j =  1  To UBound(aTable,  2 )
    WriteR = StartWriteR
    For i =  1  To UBound(aTable,  1 )
        If Not IsEmpty(aTable(i, j)) Then
            Cells(WriteR, j + StartC -  1 ).Value = aTable(i, j)
            WriteR = WriteR +  1 
        End If
    Next
Next

For Each nm In ActiveWorkbook.Names
    If nm.Name = "MyTable" Then Exit For
Next

For Each c In nm.RefersToRange.Cells
    c.Value = Int((Rnd *  100 ) -  50 )
Next