VBA to group rows that are between blank cells

[brianallen0]

Hi,

Ive search and tried to modify several variations of vba code I was able to find on the internet but cant seem to get the macro to work the way I want it. I basically have several rows with data and beneath is a subtotal line in a different column. I basically just need the code to read column D and group every row that is between these blank rows. All help is greatly appreciated example below.

Thanks!

Before
[TABLE="width: 500"]
<tbody>[TR]
[TD]Blank[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Numbers[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Numbers[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Numbers[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Numbers[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

After
[TABLE="width: 500"]
<tbody>[TR]
[TD]Blank[/TD]
[/TR]
[TR]
[TD]Group[/TD]
[/TR]
[TR]
[TD]Blank[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

How about

Sub GroupRows()
   Dim Rng As Range
   For Each Rng In Range("D2", Range("D" & Rows.count).End(xlUp)).SpecialCells(xlConstants).Areas
      Rng.EntireRow.Group
   Next Rng
End Sub

 

[brianallen0]

How about

Sub GroupRows()
   Dim Rng As Range
   For Each Rng In Range("D2", Range("D" & Rows.count).End(xlUp)).SpecialCells(xlConstants).Areas
      Rng.EntireRow.Group
   Next Rng
End Sub

Wow that code is way less complex then I thought I needed, it worked perfectly thank you!!!

 

[Fluff]

Glad to help & thanks for the feedback

 

[mstar0923]

Hi question maybe this code isn't working for me cause it's a string (letters) instead of numbers. but i need to group blanks together too same thing as the image above. I am trying to see if Row B has values. If there is no values in the data then group those.
Row A: B

1	abc
0
0
1	abc
1	abc
1	abc

 

[Fluff]

Hi & welcome to MrExcel.

You are trying to group blank rows, whereas the OP was trying to group rows with values.
Rather than posting to a 6 year old, you would be better off starting a thread of your own.