求一个VBA在Excel里批量添加分页符的宏，或者方法

3万行左右的数据，第一列里面是序号，需要从序号里找到1，选中1的这一行添加分页符，或者在筛选状态下自动添加分页符。