insert and copy

[Darius]

Hi there;
I need to insert a row between row 4 and 5 and then jump 5 rows further and
do it again (insert row between row 9 and 10) again 5 jumps and insert row
between 14 and 15. this goes to finally between rows 49180 and 49181.

thanks for any help

 

[OssieMac]

Hi Darius,

To be sure of giving you the correct answer, need to confirm some info.

insert a row between row 4 and 5 then insert row between row 9 and 10. Do
you mean between what is row 9 and 10 after the row is inserted between 4 and
5 or between what was the original row 9 and 10 before inserting the row
between 4 and 5?

I have assumed the latter and the following code should do it. However, if
not correct then get back to me.

Ensure that you back up your workbook before running the code in case it
does not do what you expect.

Sub InsertRows()
Dim i As Long

For i = 49180 To 4 Step -5
Rows(i).Insert
Next i

End Sub

 

[Jacob Skaria]

Try this macro..

Sub Macro()
For lngRow = 5 To 49180 Step 5
Rows(lngRow).Insert
Next
End Sub

 

[Jarek Kujawa]

would this macro be of help?

Sub aaaaa()
Dim cell As Range

For Each cell In Columns(1).Cells
cell.Activate
If cell.Row < 49181 And cell.Row Mod 5 = 0 Then
ActiveCell.Rows.EntireRow.Insert
End If
Next cell

End Sub