No need to select, inefficient and wasteful


Sub main()
Dim myRow As Long
Dim lastCell As Long
Dim i As Long
myRow = 1 'first row to start on
lastCell = Cells(Rows.Count, "A").End(xlUp).Row

For i = lastCell To myRow Step -1
Rows(i + 1).Insert
Next

End Sub



--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"John Bundy" wrote in message
...
This should do you

Sub main()
Dim myRow As Long
Dim lastCell As Long
myRow = 1 'first row to start on
lastCell = Cells(Rows.Count, "A").End(xlUp).Row

For i = lastCell To myRow Step -1
Cells(i, 1).Select
Selection.EntireRow.Insert Shift:=xlDown
Next

End Sub


--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"nazzoli" wrote in message
...
I have a file that I will open on a weekly basis. I want it to create a
macro that will insert a blank row in between all rows. The number of
rows
will vary weekly. Please help.