Sub deleteallbutoneblankrowSAS()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "" And Cells(i + 1, 1) = "" _
Then Rows(i + 1).Delete
Next i
End Sub
=======

On Feb 13, 12:01*pm, gwc wrote:
How can I delete all but one empty row between each row or group of
consecutive rows containing data?

Here is portion of my spreadsheet:

xxxxxxx
xxxxxxx
xxxxxxx
xxxxxxx
xxxxxxx

xxxxxxx
xxxxxxx
xxxxxxx

xxxxxxxx
xxxxxxxx

xxxxxxxx
xxxxxxxx
xxxxxxxx
xxxxxxxx
xxxxxxxx
xxxxxxxx
xxxxxxxx

xxxxxxxx
xxxxxxxx

xxxxxxxx

xxxxxxxxx
xxxxxxxxx