try
for i = cells(rows.count,1).end(xlup).row to 2 step -1
cells(i,1).entirerow.insert
next

--
Don Guillett
SalesAid Software

"LeRoy" wrote in message
...
Excel 2000. I have a spreadsheet where we import a
delimited file every week. The number of rows varies, but
usually is in the 6000 range. I want to be able to insert
a blank row in between each row of data automatically. The
first row contains column labels. How would I create a
macro to do this?

Thank you.