After completing the sort, run this macro which assumes that column A is
being used:

Sub empties()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To 2 * n Step 2
Rows(i).Insert
Next
End Sub

--
Gary''s Student - gsnu200787


"Sandy" wrote:

I am constantly adding names & phones #'s, etc. to a data sheet I have so I
need to re-alphabetize each time I add one. I had a space between each row,
but when I hit the Sort button, it lumps all the spaces together! Help,
please!
Sandy