How to keep the table name after converting it to a range

The below code converts the tables in my workbook to a range but one of the tables that gets converted feeds three pivot tables in the workbook and those three pivot tables break every time I convert to a range and then save the file using Save As. The error I get when I refresh the workbook is Pivot table field name is not valid.

Once I run the code I just need it to rename the "EXP_DATA_TBL" table that was just converted back to "EXP_DATA_TBL". The upper most left cell of the range will always be B8 and the range will grow and shrink all the time with the right most column being column P.

Please Login or Register  to view this content.

Is there a reason for converting the tables to ranges?

Yes, The tables are pulled in from a data connection to an Access Database. The workbooks have people who access them from both MAC's and PC's but since the MAC's don't work with Access I have to break the connection and save a version that MAC users can access.