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 .

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