Adding rows in a data set XL2003

[lq_gman]

I have a data set that is simply numbers in a Column

for example:

Column A

1
2
3
4
5
6
etc... to say
500

I need to add 8 rows inbetween each number and I don't want to do this manually. Is there a way that I can do this with some formula?

The outcome I need is for the data to read 1 with 8 new blank rows below it and then 2 with 8 more blank rows below it etc...

My apologies if I was redundant in my explanation it's just I can't for the life of me figure out how to do this and I know there has to be an easy way.Thank you for your help in advance!

 

[Jonmo1]

Welcome to the board..

Try this macro

Sub add8rows()
Dim i As Long, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 2 Step -1
    Cells(i, "A").Resize(8, 1).EntireRow.Insert
Next i
End Sub

Hope that helps.

 

[TiaXL]

Sub loopier()
Dim i As Integer
ActiveCell.Offset(2, 0).Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Selection.End(xlDown).Offset(1, 0).Select
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
Selection.Insert (xlShiftDown)
 
Next i
End Sub

Bit rudamentary but gets the job done :P

 

[lq_gman]

Thank you very much... I hate to say that I don't understand the macro. I have very limited knowledge of them and how to use them. I really do however appreciate the assistance!