Try:

Sub stacie()
Set r = ActiveSheet.UsedRange
last = r.Rows.Count + r.Row - 1
For i = last To 1 Step -1
Rows(i).Insert Shift:=xlDown
Next
End Sub
--
Gary''s Student
gsnu200707


"Stacie" wrote:

I need to know if there is a way to insert one row in between each line on a
worksheet without having to click "insert" then "row" everytime?