ActiveSheet.ListObjects.Add(xlSrcRange, _ Range("A1:F" & Range("F" & Rows.Count).End(xlUp).Row), _ , xlYes).Name = "Table1"
ActiveSheet.ListObjects.Add(xlSrcRange, _ Range("A1:F" & Range("F" & Rows.Count).End(xlUp).Row), _ , xlYes).Name = "Table1"
Posting Permissions
Reply With Quote