insert and copy

  • Thread starter Thread starter Darius
  • Start date Start date
D

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
 
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
 
Try this macro..

Sub Macro()
For lngRow = 5 To 49180 Step 5
Rows(lngRow).Insert
Next
End Sub
 
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
 
Back
Top