How do I insert a row or rows between each row of text and copy the row above?

D

drea5845

I have been using this macro to insert rows depending on how many
need.

When I need more rows interested I just change the number by numRows=

I would like to know how I can copy the row above to the new inserte
row. I would like to do this for large amounts of data. As of now I jus
do this manually and it can be very time consuming.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
numRows = 1
For r = 265 To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Su
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Start adding blank rows at row 4 (vba code) 4
How inserer a certain number of blank rows 2
Automatically insert new rows 2
insert row with logic 3
Insert blanks, but populate new blank rows in one column 6
How do I insert a row without the formula changing? 1
inset rows and copy formatting , excel macro 13
How do I add a larger sized, blank every other row in a spread she 2

Top