Try the following: Note it uses column 1 to determine the last row of data and works backwards towards row 1

Sub Adder()
Dim xR As Long, xP As Long
xR = Cells(Rows.Count, 1).End(xlUp).Row
For xP = xR To 1 Step -1
Rows(xP).Insert shift:=xlDown
Next
End Sub

--
Cheers
Nigel



"scott" wrote in message m...
Good Morning All,

I am trying to figure out how to insert a blank row every other row. We have a workbook with over 2000 rows of data and we need to add a blank row in between each row any thoughts on this,

Thanks,

--
SCOTT ROWE