This should do it

Sub dupallrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Copy
Rows(i).Insert shift:=xlDown
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ArthurN" wrote in message
...
Hi,
I've got a huge list that looks like this:
-------------------------------
name data 1 data 2 data 3
-------------------------------
book1 2 3 4
book2 4 5 7
book3 5 6 5

I need to duplicate every row (except the heading):
book1 2 3 4
book1 2 3 4
book2 4 5 7
book2 4 5 7

Is there a way to automate this routine? You'd save my life...
Thanx in advance