Insering empty rows after each

Hello,

I have a sheet continously populated with rows.
What I would like to manage is to insert empty lines after each row, so that I have one data-row then one empty row, something like this:
as is
data1
data2
.
data n

to be
data1
empty
data2
empty
.
data n

The list begins on a fix row, but the number of the rows may vary.
Can anybody advice, how to manage it?

Many thanks

Here is the easiest way.

In column A (your data is in column B)

A1 =1
A2 = 2

Copy A1:A2 and paste in A3

Sort by column A smallest to largest

Now delete column A

Why doesn't this method work?

Please attach a sample workbook detailing exactly what you desire?

Sub InsertRows()

Dim lLastRow As Long
Dim i As Long
lLastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = (lLastRow) To 2 Step -1
    Range("A" & i).EntireRow.Insert
Next 'i

End Sub

Regards

You're welcome. Thanks for the rep.

Is there any reason, why you made it from the bottom to the top?

Oh, yes. Try it and see what happens. ;-)

Sub InsertRows2()

Dim lLastRow As Long
Dim i As Long
lLastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lLastRow
    Range("A" & i).EntireRow.Insert
Next 'i

End Sub

or

Sub snb()
  For j = Columns(1).SpecialCells(2).Count To 2 Step -1
    Rows(j).Insert
  Next
End Sub

@snb: I may be a little paranoid, but I'm getting the impression that you're stalking me and reducing my lines of code by 50% ;-) I'll consider it an education ;-))

Of course, you cheated a little by not Dimming the variable j!

Regards

@TMShucks

I have to disappoint you: I'm not.

And I didn't 'cheat', because that declaration serves no purpose. Because of it's redundancy it can be omitted completely.

@snb: as you are aware, I have this tendency to use "option explicit" ... an approach with which I know you are not entirely in agreement ... but I would have to define it ;-(

PS: can't find the thread to which you referred.