有大佬能帮我看看，这个vba为什么会用只跑一次吗？

HUexcle

这个vba是我用cpt生成的，但是不懂怎么修改。

这个vba的作用是用来分配数据的，分配规则如下：1.案子区分新存案，新案和存案（使用相同逻辑，但是要单独分，也就是要么先分新在要么先分存案）
  2.人员的案子是滚动分配的，不是一次性分完这个人再分下一个，而是这样分的，比如表中的新案山东分了15户，按照山东的6个人分配比例，第一个人分5个，第二个人分3个，第三到第五个人都是分2个，第6个人只分一个，所以按需求去做分配的话，名单是这样的滚动的：123456，12345，12，1，1，依次减少，然后新案山西的也是这样。接下来就是按这个逻辑就分存案了。

涵数帖地址：【新提醒】急~求助，这是一个关于数据按照分配比例“分配”的问题-Excel函数与公式-ExcelHome技术论坛 -
本来我想请教涵数怎么做的，但是论坛中的大佬给的涵数在execl 2016版中没有办法使用，所有找了一下vba的代码，但是生成的逻辑是没有问题的，只有他只运行了一次，下面是生成效果