Excel VBA Filter Out Zero Subtotal of Multiple Columns

[Biz]

Hi,

I'm trying to create Excel 2010 VBA code for Pivot tables, to filter out Subtotal if multiple columns are zero.

Test Data.xlsm
	A	B	C	D	E	F
1	Project	Items	Sum of Actual	Sum of Budget	Sum of Forecast	Sum of Fcast
2	12	Sales11	0	0	0	1
3	12	Sales2	6	55	22	34
4	12	Sales20	26	98	38	50
5	12	Sales26	0	0	0	0
6	12 Total		32	153	60	85
7	13	Sales12	0	0	0	0
8	13	Sales3	0	0	0	0
9	13	Sales21	0	0	0	0
10	13	Sales27	0	0	0	0
11	13 Total		0	0	0	0
12	14	Sales13	97	36	57	13
13	14	Sales4	90	0	0	0
14	14	Sales22	53	18	31	95
15	14	Sales28	97	36	57	13
16	14 Total		337	90	145	121
17	15	Sales14	41	73	19	24
18	15	Sales5	26	98	38	50
19	15	Sales23
20	15	Sales29	41	73	19	24
21	15 Total		108	244	76	98
22	16	Sales15
23	16	Sales6
24	16	Sales24
25	16	Sales30
26	16 Total
27	17	Sales16	88	17	8	17
28	17	Sales7	53	18	31	95
29	17	Sales25	99	37	44	39
30	17	Sales31	88	17	8	17
31	17 Total		328	89	91	168
32	18	Sales17	91	13	61	26
33	18	Sales8	0	0	0	0
34	18	Sales32	91	13	61	26
35	18 Total		182	26	122	52
36	19	Sales18	80	67	64	6
37	19	Sales9	0	1	0	0
38	19	Sales33	80	67	64	6
39	19 Total		160	135	128	12
40	20	Sales10	0	0	1	0
41	20	Sales19	90	31	3	25
42	20 Total		90	31	4	25
43	Grand Total		1237	768	626	561
Summary

Looking at example above Project 16 should exist as Actual, Budget, Forecast and Fcast is zero.

Your help would be greatly appreciated.

Kind Regards

Biz