如何在EXCEL中利用VBA程序实现选择行并插入指定位置

cxj801228

我想要实现的要求如下：将附件中4-7行复制并插入到单元格内容为齿轮箱所在行的后面，利用VBA程序应该怎么实现？因为需要复制的地方较多，我希望是先提示要复制那几行，然后选择4-7行，然后提示选择单元格中内容等于某个值，我输入齿轮箱，最后完成在23、24行后插入4-7行。请大侠指教！感谢！

cxj801228

我自己弄得程序有什么不对，请老师指教。
Sub 宏12()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Application.InputBox("请指定复制单元格", , , , , , , 8)
rng1.Select
Selection.Copy
Set rng2 = Application.InputBox("请指定插入位置单元格", , , , , , , 8)
rng2.Select
Selection.Insert Shift:=xlDown
End Sub