Excel Visualbasic將行的一部分移動到第二行

Question

我想將excel中的一行的一部分移動到原始行下方的新行。我發現了一種在所有數據行之間插入空白行的方法，但無法弄清楚如何將數據從單元AG：AR切換到A：L中的下一行。可以有無限數量的行。

這裏的樣品我有什麼，我希望它看起來它完成時像什麼：

採樣啓動數據：

Row 1: A1 A2 A3 A4 A5 A6 A7 A8 

Row 2: B1 B2 B3 B4 B5 B6 B7 B8 

成品：

Row 1: A1 A2 A3 A4 A5 

Row 2: A6 A7 A8 

Row 3: B1 B2 B3 B4 B5 

Row 4: B6 B7 B8 

我能夠解決它與下面：

我能弄明白。

這裏是我做過什麼：

Dim LastRow As Long 
Dim NextRow As Long 

Do Until ActiveCell.Row = 2 
    LastRow = Range("AG65536").End(xlUp).Row 
    NextRow = Range("AG65536").End(xlUp).Row + 1 
    Range("AG" & LastRow & ":AR" & LastRow).Select 
    Selection.Cut 
    Range("A" & NextRow).Select 
    ActiveSheet.Paste 
Loop 

Answer 1

Dim rng as Range 
Set rng = ActiveSheet.Range("AG2:AR2") 
rng.Cut Destination:= rng.offset(1,0).Entirerow.Cells(1)