is it

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("tbl"), , xlYes).Name =  "Table1"
tbl is defined range create via following formula:
 
=OFFSET(data!$A$1,0,0,COUNTA(data!$A:$A),COUNTA(data!$1:$1))
data is the worksheet name that contains table data