Macro to Split Data into separate sheets

Hi I have a working macro that takes data and splits it into a worksheet for each number in a column. I can get it to work on a separate sheet with dummy data but not on the actual workbook I use at work. There are numerous other macros working on this worksheet as well as several referenced cells within the segment I am trying to run the macro on. I am not sure if that would cause a problem. The part of the worksheet I want it to run on is E37:J70. The error I am seeing when trying to run is: "Run Time Error 1004 Cannot rename a sheet to the same name as another sheet, a referenced object library or a workbook referenced by Visual Basic."

Another issue is when the data splits the worksheets are ordered backwards with the highest number first and so forth.

Thanks for your help.

Here is the VBA:

Please Login or Register  to view this content.