Filtering Pivot Table values with VBA

[BobPierre]

Good day,

I want the Macro to filter out values of distance less than 30km and do a Pivot table as well as also doing for the whole data.
So that that I will have 2 pivot tables, one for the whole data and the other for less than 30km.
Like this:

s/n	Column	Distance			Row Labels	Count of Distance
1	a	0.72			a	15		Row Labels	Count of Distance
2	a	21.2			b	3		a	12
3	d	0.42			c	6		b	3
4	d	1.88			d	11		c	6
5	d	1.88			(blank)			d	9
6	b	22.42			Grand Total	35		(blank)
7	b	0.13						Grand Total	30
8	b	1.06
9	a	1.86
10	a	19.4
11	a	49.44
12	a	11.35
13	c	16.82
14	c	19.2
15	c	19.45
16	c	0.53
17	a	0.89
18	a	31.53
19	a	25.1
20	a	1.08
21	a	0.9
22	a	1.03
23	a	71.06
24	a	0.18
25	d	1.1
26	d	33.61
27	c	1.01
28	d	2.04
29	c	0.92
30	d	0.94
31	d	58.81
32	d	29.37
33	d	1.08
34	d	0.87
35	a	0.93

<colgroup><col><col><col><col span="2"><col><col><col><col><col span="3"></colgroup><tbody>
</tbody>

<colgroup><col span="3"><col span="2"><col><col><col><col><col span="2"></colgroup><tbody></tbody>

<colgroup><col span="2"><col><col span="2"><col><col><col><col><col span="2"></colgroup><tbody>
</tbody>

Thank you all in advance