Inserting 10 Rows

[Todd]

I have a list of data in two columns. I would like to
insert ten rows between each row of data (except the first
row of course).

Column A Column B
12.5 45
<ten rows>
23 34
<ten rows>
90 43

Any suggestions?

TIA,
Todd

 

[Bernie Deitrick]

Todd,

Sub Insert10Rows()
Dim myRow As Long
For myRow = Range("A65536").End(xlUp).Row To 2 Step -1
Cells(myRow, 1).Resize(10, 1).EntireRow.Insert
Next myRow
End Sub

HTH,
Bernie
MS Excel MVP