VBA: Copy 6 rows from Tab2 to a list in Tab1 below each row.

[peethulst]

How can i copy 6 rows from Tab2 to a list in Tab1 below each row.
Finally i want it to the last record.

Sub CopyPaste11()
Dim i As Long
For i = 1 To 6
'Copies the specified selection to the Clipboard
Sheets("Tab2").Select
Range("A3:U8").Select
Selection.Copy
'Paste the specified selection
Sheets("Tab1").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
'Move to the next row and past again
Selection.Offset(7, 0).Select
Selection.Insert Shift:=xlDown '<< This dont work
Next i
'Cancels Cut or Copy mode and removes the moving border
Application.CutCopyMode = False
End Sub

 

[Fluff]

How about

Sub CopyPaste11()
   Dim i As Long
   Dim rng As Range
   
   Set rng = Sheets("tab2").Range("A3:U8")
   Sheets("Tab1").Select
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      Rows(i).Resize(6).Insert
      rng.Copy Range("A" & i)
   Next i
End Sub