visual basic code

[lovingexcelbutconfused]

Hi;

I need to insert rows within excel; 2000 rows to be exact and these are in multiple spreadsheets. Is there a macro/visual basic code I can use to run this? I know something with a do until (last row) would work but dont know how to tell excel to move insert after skipping two rows, and then inserting, and then skipping etc etc

thanks

 

[Tazguy37]

I think a little more info is needed to help you solve your problem. Do you need to insert a row at every third row for all sheets in one workbook? Which columns have data in them? Would you stop inserting rows after 2000, even if there's more data in the sheet?

 

[yankee428]

How about this:

Sub rowinsert()
Dim r As Double
Dim count As Double

r = 1
count = 1

Do Until count >= 2000
Cells(r, 1).EntireRow.Insert
count = count + 1
r = r + 3
Loop

End Sub

If you don't want to start on the first row, then change r=1 to whatever row number you want to start on.

 

[lovingexcelbutconfused]

Thank you!!!!!!!!!!!!!!!!!