Insert Row and Copy Down 300 times

[dtb912]

Hello, I've been searching with no success. I have 300 rows of data and I'd like to insert 7 new rows between each data point, copy that data point down those new rows, then move to the next data point. This will be done 300 times until I have 2,400 rows of each data point copied 8 times. Any help would be greatly appreciated.

Thanks
DTB

 

[dtb912]

I ended up building it out. It wasn't perfect, but it worked.

Sub CopyDown()

'
Range(ActiveCell.Offset(1), ActiveCell.Offset(7)).Select
Selection.EntireRow.Insert
Range(ActiveCell.Offset(-1), ActiveCell.Offset(6, 1)).Select
Selection.FillDown
Range(ActiveCell.Offset(8), ActiveCell.Offset(8)).Select
End Sub

Assigned it a shortcut and ran it 300 times.

 

[dtb912]

Just thought about it, added a repeat macro to it and made cell C1 300.

Sub Macro2()

Dim i as Long
For i=1 to Range("C1").Value
CopyDown
Next i

End Sub

 

[jolivanes]

From the last used row up to the first row.

Sub Maybe()
Dim i As Long, lc As Long
Application.ScreenUpdating = False
lc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        With Cells(i, 1).Resize(, lc)
            .Copy
            .Resize(7).Insert Shift:=xlDown
        End With
    Next i
Application.ScreenUpdating = True
End Sub