Macro to insert 10 rows on every 4th row

[besucool]

Hi All,

I have the below macro which works fine to insert 10 rows, but is looking at if a column is populated to do the insert. What I require is a macro that inserts 10 rows on every 4th line of the sheet regardless if the column has any text or not, preferable doing it a nth number of times. Any ideas good people? Thanks in advance

Sub InsertRowEveryXrows()


Dim x As Integer


x = 2


Do
Rows(x).Resize(9).Insert
x = x + 10
Loop Until IsEmpty(Cells(x, "A"))
End Sub

 

[MickG]

Perhaps:-

Dim x As Integer
x = 2
Do
    Rows(x).Resize(9).Insert
    x = x + 10
Loop Until x[B][COLOR=#FF0000] > 200[/COLOR][/B]

 

[Rick Rothstein]

@besucool,

Your macro does not do what you say you want for me when I try it. Just out of curiosity, does this do what you want...

Sub InsertTenRows()
  Dim R As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "O").End(xlUp).Row
  For R = 2 + 4 * Int(LastRow / 4) To 2 Step -4
    Rows(R).Resize(9).Insert
  Next
End Sub

 

[besucool]

Hi MickG,

yeap I think thats what I am looking for. I will adjust it a bit but looks goods to me. Thanks for your help.

Thanks,
Brian

 

[Rick Rothstein]

Hi MickG,

yeap I think thats what I am looking for. I will adjust it a bit but looks goods to me. Thanks for your help.

Just out of curiosity, did you try the code I posted in Message #3 ? If so, did it do what you wanted?