How to create a simple alternate line skipping macro in excel

[sb615]

I've done a handful of macros in excel before, but it's been awhile and I'm kind of blanking. I'm essentially looking to have a macro that will insert a blank row between each other row (a list of names with information, and I want there to be spaces between). Then I want it to stop when it gets to the last row with text in it. I know this is something simple to do, but I'm forgetting how to do it. Thanks in advance.

 

[Von Pookie]

Start from the bottom and work up:

Dim i As Long, LastRow As Long

'find last used row in column A
LastRow = Columns(1).Find(what:="*", searchdirection:=xlPrevious).Row

For i = LastRow To 1 Step -1
    If i > 1 Then Rows(i).EntireRow.Insert
Next i