Excel VBA插入复制的单元格并将单元格向下移动错误

Question

完成这里的业余爱好者。我一直在困惑这几个小时，并且我找不到任何帮助我的任何其他线索。如果在其他地方问过这个问题，我的智慧就很难过了。

我试图创建一个可笑的简单宏做到以下几点：

Go to Sheet2, 
Select C6:C10 
Copy 
Go to Sheet3 
Insert copied cells in B2 and shift the other cells down. 

我这样做只是通过录制宏，但每次我这样做的时候，我得到不同的错误。我现在的错误是'插入方法的范围类失败'，但有时错误弹出'Selection.Copy'。这是我有的代码：

Sub InsertCellsShitDown() 
' 
' InsertCellsShitDown Macro 
' 

' 
Sheets("Booking Sheet").Select 
Range("C6:C10").Select 
Selection.Copy 
Sheets("Sheet1").Select 
Range("B2").Select 
Selection.Insert Shift:=xlDown 
End Sub 

任何帮助将非常感激。

Answer 1

Sub InsertCellsShiftDown() 
' 
' InsertCellsShitDown Macro 
Dim bookingWS As Worksheet, mainWS As Worksheet 
Dim copyRng As Range 

Set bookingWS = Sheets("Booking Sheet") 
Set mainWS = Sheets("Sheet1") 
Set copyRng = bookingWS.Range("C6:C10") 

mainWS.Range("B2:B" & copyRng.Rows.Count + 1).Insert Shift:=xlDown 
copyRng.Copy mainWS.Range("B2") 
End Sub 

这是如何工作的？我假设你想插入5行，所以从B2:B7，然后把数据。