Divide each location equally between employee excel VBA

Question

if any one can help me at the following:

I have 1000 accounts with different locations. (150 for ER location, 200 for GP location, etc) I need to distribute each location