仅在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

不是依赖于选择，而是指定要进行插入的工作表和范围