使用VBA进行行数追加导致自动化错误的问题

liangheng007

如题，本人写了一个工作用的程序，其中有一项是根据既定格式创建指定数量的行，但一旦运行大概率出现自动化错误，找不到原因，烦请各位大大帮忙看看，谢谢了。因为不能直接上传附件，所以发百度网盘。
链接:https://pan.baidu.com/s/1ExRKKXt9ULLgvCE9zxvdzw 提取码:g4n8
具体操作
①打开文件，允许宏。
②功能区标签页点击“审查工具”，点击空栏追加
③第一个对话框，位置输入默认1，确认
④第二个对话框，数量输入默认1（最多10，可任意填写），确认
⑤是否采用复制方式添加，选择“是”确认
这里说明下，上述步骤⑤的“是”和“否”对应两种创建方法：
“是”：模拟复制粘贴方法（极容易出错）
“否”：模拟一个一个修改添加格式（不会出错，但速度慢）
如果对于增加指定格式的行有其他方法，也请不吝赐教，谢谢。

liangheng007

我试着上传了一下，看看各位能不能打开

liangheng007

自己顶一下，希望被看到

liangheng007

顶一下希望有人看到