I am trying to write a macro to copy seven rows of data and insert them right
after the seventh row and then go to the next 7 rows of data (as long as
there is data in column A) and copy them and insert them right after the 7th
row and continue on as long as there is data in column A.
I figure a Loop would be the easiest, this is what I have but it is
inserting 1 blank row. Any help would be appreciated. thanks

Do Until ActiveCell.Value = ""
If ActiveCell.Value 0 Then
ActiveCell.EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.EntireRow.Offset(1, 0).Select
Selection.Insert Shift:=x1Down
ActiveCell.EntireRow.Offset(1, 0).Select
Else
End If
Loop