仅在 B 列中插入一行

Question

我已经编写了一个宏来从 Sheet 2 复制一行并将该行插入到 Sheet 1 中。我的问题是我只希望从活动行的 B 列开始插入行。 这是宏：

Sub addTestProductRow()
Sheets("Macro templates").Range("B2:J2").Copy
Selection.Insert Shift:=xlDown
End Sub

目前我的宏是这样做的：
如果用户选择了单元格 K2 并执行了宏，则行将从 K2 插入到 S2

我希望宏做什么：
如果用户选择了单元格 K2 并执行宏，则行将从 B2 插入到 J2

注意事项：该行包含一个复选框，因此必须复制，目前我的宏可以正确复制和粘贴复选框。

Answer 1

改变：

Selection.Insert Shift:=xlDown

到：

Sheets("nameOfOtherSheetGoesHere").Range("B2").Insert Shift:=xlDown

与其依赖选择，不如指定您希望插入的工作表和范围