Group cells without the totals (conditional grouping)

[Migaspt]

Hello!

I'm trying to write the code to run a macro on VB to group rows until the totals.


Example:

TITLE 1	TITLE 2	TITLE 3	TITLE 4	%
X	X1	X11		98
X	X2	X21		87
X	X3	X31		20
X	X1	X12		10
X	X3	X32
X TOTAL				53.75
Y	Y1	Y11		68
Y	Y1	Y12		98
Y	Y2	Y21		14
Y TOTAL				58.44
…
Grand Total			56.35

<tbody>
</tbody>

What I need is to group the Xs and Ys until the totals. The code should stop the groupings when there is the "Grand Total" in column A.
-Some groups can have only one cell to group.
-Grouping should start at the 14th row

(Another way to write it could be to group until the blank cells in column B?)


Can you help me with this?

Thank you very much in advance!

 

[oldbrewer]

	TITLE 1	TITLE 2	TITLE 3	TITLE 4	%
	X	X1	X11		98	O
	X	X2	X21		87	O
	X	X3	X31		20	O
	X	X1	X12		10	O
	X	X3	X32			O
	X TOTAL				53.75
	Y	Y1	Y11		68	O
	Y	Y1	Y12		98	O
	Y	Y2	Y21		14	O
	Y TOTAL				58.44
	Grand Total			56.35
	the pivot table is in a fixed starting location
	in this case cell B2
	so we can start pulling data from B3
	we do not pull a line if it contains the text "total"
	so if B cells are not blank we pull the C,D,E,F cells
		########
>>>>>	X	X1	X11	0	98
	X	X2	X21	0	87
	X	X3	X31	0	20
	X	X1	X12	0	10
	X	X3	X32	0	0
	Y	Y1	Y11	0	68
	Y	Y1	Y12	0	98
	Y	Y2	Y21	0	14
	formula in cell marked >>>>	(b25)
	=IF(B3="","",IF(ISERROR(SEARCH("total",B3)),B3,""))
	formula in cell marked ####	(c25)
	=IF(B25="","",C3)

<colgroup><col width="64" span="7" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[Migaspt]

Shall I use those formulas in Virtual Basic?

 

[oldbrewer]

the syntax is not the same you will need a VBA manual

if it must be VBA it is probably easier to loop through the pivot table printing only lines without total inthe first column