Splitting Excel workbook sheets
I had a similar project for a client. I looped a table filter by employee name for the chosen manager. Then I moved the resultant table values to a new sheet and ran activesheet.move to create a new workbook.

I used your 'testname' saveas portion of the code to pass the manager folder variable and employee variable folder within my loop.

Saveas(...  &amp; "/" &amp; str_manager &amp; "/" &amp; str_employee &amp; ".xlsx" )


The system stress calculations are interesting but not needed. That is because using arrays, counting, bubble sorting, loops are most efficient depending on the size of the dataset.  Mine was quicker when using a table filter loop