One problem I am having here is that the number of rows in the original table is dynamic and therefore I can't use a simple Range code
Off the top of my head: 
Function TableAddress(ShtName As String) As String

Const FirstColumnOfTable As Long = 1

Dim StartRng As Range
Dim EndRng As Range

Set EndRng = Sheets(ShtName).Cells(Rows.Count. FirstColumnOfTable).End(xlUp).End(xlToRight)
Set StartRng = EndRgn.End(xlUp).End(xlUp).Offset(1) 'Omit Offset if table has no header over last column

TableAddress = Range(StartRng, EndRng).Address
End Function
Sub Test_TableAddress()
Dim TableRng As Range

Set TableRng = Sheets("Sht1").Range(TableAddress("Sht1"))
End Sub