在当前行上方插入一行

Question

我有一个非常简单的问题，但是对VB还是陌生的，无法弄清楚为什么我会出错。

我要做的是设置一个宏，该宏将复制第10行并将其插入当前活动行的上方。

我搜索了多个网页，但是每个人似乎对代码的编码方式都不相同，我无法通过分析代码来理解VBA命令。

我不断得到：

1. “范围类的插入/复制方法失败”，并且
2. 有关断开连接的错误。

我还注意到一些奇怪的事情，在多次运行代码后，我收到了变化的错误消息，并且不确定我的Excel版本是否存在问题。

这是我要使用的代码：

Sub Insert_Row（）

Dim rng As Range
Dim act As Range

Set rng = ActiveCell.Rows
Set act = Rows("10:10")


Range(act).Copy

rng.Select

rng.Insert Shift:=xlDown

结束子