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