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

完成业余在这里。 我一直在困惑这几个小时，我找不到任何东西来帮助我在其他任何线程。 如果这个问题在其他地方被问到，我的机智的结局很抱歉。

我试图创build一个可笑的简单的macros来做到以下几点：

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

我只是通过录制macros来做到这一点，但是每次我都会得到不同的错误。 我现在的错误是“插入方法的范围类失败”，但有时在“Selection.Copy”popup错误。 这是我有的代码：

 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 ，然后把数据。