在所选单元格或行的下方插入新行

我保护excel表。 第一行是10号，下面插入所有新行。

我已经把下面的代码用命令button在底部插入一个新的行，从上面的行复制相同的格式和公式。 这工作得很好。

ActiveSheet.Unprotect"" ActiveSheet.Range("A10").CurrentRegion.Offset(ActiveSheet.Range("A10").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True _ , AllowFiltering:=True ActiveSheet.Protect "", True, True 

但是我不能在行的中间插入一个新行（从上面的行复制相同的格式和公式）。

有人可以编辑我的代码，以便我可以插入一个新的行，在任何地方，我想插入点击鼠标点击中间的行。

当然，新行应该在突出显示的单元格下方创build，并使用与上一行相同的格式和公式进行复制。 非常感谢提前家伙。