如何按指定行分表？

ty01

想把一张表，按某一行的字段分成若干个表，如下图，请问如何用VBA实现？谢谢！

A1233515

附件供参考

ty01

感谢楼上的大侠，非常好用。
能不能帮忙做得更开放一点，可以指定任一行拆分。比如：上面是第二行，如果标题有三行，按第三行。在宏里可以让用户选择按第几行拆分。
而且第一行表头的数据“公司员工2020年工资表”自动获取，而不是写在宏里固定。而且字体大小也与原表保持一致。
再次感谢！