ScottInTexas
Board Regular
- Joined
- Oct 28, 2003
- Messages
- 178
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?
Thanks
Code:
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