Need to add data to table in result sheets

try this:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$W$" & Cells(Rows.Count, 1).End(xlUp).Row), , xlYes).Name = "Table2"

PS. Not tested