This assumes that column A is used in your data. Run this small macro:

Sub RowInserter()
Set r = Cells(1, 1)

n = Cells(Rows.Count, 1).End(xlUp).Row
For i = n To 1 Step -1
Cells(i, 1).EntireRow.Insert
Next

End Sub

--
Gary''s Student - gsnu200909


"Confused from Hertford" wrote:

Need to input alternate blank rows into imported spreadsheet. Currently has
24000 lines of data and would like to find a way of not having to manually
input these blank rows! help! Also if this is possible will I be able to
format row height at the same time?