Insert copied rows multiple times

[ScottInTexas]

I have a range copied and I want to past that range several times in each sheet (inserting a 9 row range) and moving the current contents down with each paste. My loop works once. Then it will just insert a single row, as though it has forgotten the copied range. How do I get it to insert the range each time through the loop?

intRow = 52
Set wksht = Sheets("Structures1")
    Set SourceRng = wksht.Rows("44:51")
    SourceRng.Copy
    For i = 1 To 4
        wksht.Rows(intRow & ":" & intRow).Insert Shift:=xlDown
        intRow = intRow + 8
    Next
    Application.CutCopyMode = False

Thanks

 

[Fluff]

How about this

   Set wksht = Sheets("Structures1")
   Set SourceRng = wksht.Rows("44:51")
   wksht.Rows(52).Resize(32).EntireRow.Insert Shift:=xlDown
   SourceRng.Copy wksht.Rows(IntRow).Resize(8 * 4)
   Application.CutCopyMode = False