U¿ytkownik "margaret1115" napisa³ w
wiadomo¶ci ...
I need to insert a blank row after every row containing data (to
facilitate
reading and adding survey data by hand) in an Excel spreadsheet. Is there
any
way to do so automatically by selecting the data then doing some menu
option
or keystroke? I can add a blank row with a macro but that is only a bit
less
laborious than having to add each blank row by hand. Thank you for your
help.
Margaret

suppose your data is placed in column A
i understod you want to add each row of data empty row
if so use following sub:

Sub insert()
m = Range("a1").CurrentRegion.Rows.Count
For i = m To 2 Step -1
Cells(i, 1).EntireRow.insert
Next
End Sub

is that what you wanted?
mcg