Rotate List of names bottom to top Repeat without condition with option to set a condition

Hello,
I have a list of employees in Column A with a manual entry of % of work for the day in Column B. As an example Row 1 Column A&B should move together. There are headers in Column A&B with 10 employees currently. The current range is A1:B11. I would like to rotate the names in columnA plus any entry in column B bottom to top with the top moving down one row. I would like to repeat this each time the macro is selected, but add an option that may allow me to set a condition, such as only once a day if i need to in the future. Until we see how the workload is dispersed I am undecided on adding in the condition. I did try adapting code I found online as i tried to work through this, but it fails at "NewListValue(Placement(Counter), 1) = _" with subscript out of range. The code below was setup only for Column A, but did not work. I do still need A&B to move together. The code below was just a start to the solution. There may be better ways to appraoch this.

Please Login or Register  to view this content.

Hi !

With data from a worksheet no needs any loop …

Hi JL GWhiz,
The code does work on the sheet. I have adjacent formulas that all get corrupted when the rotation occurs. I was able to adjust the date down a cell that eliminated it writing over another cell, but when the Cut or Shift down occurs, the formulas in adjacent cells change. Even though they are absolute they change. I am not familiar with the reize command. I actually have 4 of these that I need to rotate on the same sheet. Is there an alternate way to run this. Possibly in a module compared to sheet code?
Schedule 1 Columns A&B rotate
Schedule2 Columns G&H rotate
Schedule 3 Columns M&N rotate
Schedule 4 Columns S&T rotate
All exist in Rows 2-11
I can repeat the code with the new columns identified and I was able to get the first 2 to rotate, but both had the formula error then
Thank You in Advance