insert row (formatting ?)

[dawnfoss]

Is there an easy way to insert rows into a spreadsheet at set intervals? Ie , i need to add a row after every 11th line on an 800 line spreadsheet. The convential way of clicking on the row and then inserting a row is a bit much because of the size of the sheet.
Thanks!
DAwn F

 

[Joe4]

You code run a simple macro, like below:

Sub MyInsertRows()

    Range("A1").Select
    For i = 1 To 73
        ActiveCell.Offset(11, 0).Select
        Selection.EntireRow.Insert
        ActiveCell.Offset(1, 0).Select
    Next i
    
End Sub

I am looping through 73 times because 800 / 11 =72.7.

Hope this helps.

 

[dawnfoss]

THANK YOU!!!!

 

[Richie(UK)]

Too slow I know, but as I've written it I might as well post it .
<pre>Sub RowInsertTest()
Dim rw As Long, i As Integer

rw = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
'the last used row in column A
i = 11
'the number of rows between inserts

Application.ScreenUpdating = False
Do Until rw <= 1
If rw Mod i = 0 Then
Rows(rw).Offset(1, 0).Insert
rw = rw - 1
Else: rw = rw - 1
End If
Loop
Application.ScreenUpdating = True

End Sub</pre>