Worksheets(i).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
'where it breaks
ActiveSheet.ListObjects.Add(xlSrcRange, rngSelectionRange, , xlYes).Name = "Table1"
'Range("Table1[#All]").Select
'ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight2"
'ActiveSheet.ListObjects("Employ").Name = "Employee_Data"

Next i