Insert 2 rows between every line of data (Excel 2010)

**Louise H** · 09-10-2012, 12:35 PM

Hi,

I'm looking for a macro to use in excel 2010 that will insert 2 rows in between every row of data (500 rows) in a sheet? Any help, greatly appreciated. If possible could you also explain to me how to edit the macro to insert 1 row only or to edit the data range for example?

Also, can anyone recommend a good book for writing macros & using formula with vba etc?

Thanks,

Louise

**rollis13** · 09-10-2012, 12:53 PM

Have a try with this macro placed in the sheets VB code module.
No empty rows expected in the used range.

Sub Insert_Rows()
'
' Macro by rollis13 - 10/09/2012
'
    LR = Cells(Rows.Count, "A").End(xlUp).Row   'find last row with data in column A
    
    For a = LR To 2 Step -1                     'stop at row 2 (titles in row 1)
        For b = 1 To 2                          'change as needed for n. rows be inserted (2 at the moment)
            Cells(a + 1, 1).EntireRow.Insert Shift:=xlDown
        Next b
    Next a

End Sub