Macro Help Needed

[madkinson]

I have a series of large (1000+ rows) sheets in a workbook. I need a macro that will:
(1) - Copy each row and insert it twice immediately below
(2) - Repeat until the last row of the sheet is reached

For example, Row 1 will be copied and inserted as Rows 2 and 3. What was Row 2 is now Row 4 after the insert. Copy Row 4 and insert it as Rows 5 and 6. Continue until all rows have been copied and inserted.

As always, please accept my thanks in advance.

 

[rpaulson]

try this

For r = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
    Rows(r).Copy
    Range(Rows(r), Rows(r + 1)).Insert Shift:=xlDown
Next r

Ross

 

[madkinson]

try this

For r = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
    Rows(r).Copy
    Range(Rows(r), Rows(r + 1)).Insert Shift:=xlDown
Next r

Ross

That did it. Thanks!!!