Random Team Macro needs updating

I have a macro that takes a list of names and brakes them into teams. Right now the list has 24 names and when I add names to the list I get a debug error that makes no sense. I did this once before months ago and forgot how to do it. I know the list has to be in column A at the top but cannot figure out where I increase the range so I can add or decrease the numbers of names or how many teams they form. The code is below. The Bold and red is what is highlighted with this error: Run time error -9. Out of range.

Please Login or Register  to view this content.

If there is not enough names to make all teams full, then the last team will only be partially filled.

The error is because the last team in b is trying to add more names. All the names from a are used. At this point, n is > the Ubound(a)

Try something like this...

Please Login or Register  to view this content.

Please Login or Register  to view this content.