I am trying to find a way to group rows, according to the following logic:

Start in row 9

Test to see if there are two, or four, blank spaces in a cell, preceding
text. If there are two blank spaces in a cell, move to the next cell. When
a cell has four spaces, group that with the cells above. Move on to test the
next cell.

If a cell is found with no data at all, this is a totally blank cell; offset
one row down, and continue the process, until 2, or maybe 3, blank rows are
in consecutive order.

I have this now:

Sub Grp()
Dim rng As Range
Dim i As Long
Sheets("Sheet1").Select
For i = 9 To Cells(Rows.Count, "B").End(xlUp).Row
If Len(ActiveCell) 0 Then
Rows(i).Group
Else
End If
Next i
End Sub

Thanks so much,
Ryan---


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.