VBA script to delete all rows and columns except if specified columns have values

[ceytl]

Hi,

I am looking for a VBA script that will let me delete all columns and rows except if columns F and G both have values in the same row.

They yellow highlighted rows are the ones I am trying to keep.

ACSST1Y2019.S0101-2021-05-14T170625.xlsx
	A	B	C	D	E	F	G
1	Under 5 years	19,404,835	±22,314	5.9%	±0.1	9,938,937	±19,654
2	5 to 9 years	19,690,437	±69,224	6.0%	±0.1	10,033,518	±51,101
3	10 to 14 years	21,423,479	±69,779	6.5%	±0.1	10,987,313	±52,483
4	15 to 19 years	21,353,524	±36,116	6.5%	±0.1	10,903,653
5	20 to 24 years	21,468,680	±34,195	6.5%	±0.1	11,014,460
6	25 to 29 years	23,233,299	±29,995	7.1%	±0.1	11,817,829
7	30 to 34 years	22,345,176	±34,217	6.8%	±0.1	11,281,470
8	35 to 39 years	21,728,259	±61,731	6.6%	±0.1	10,892,040
9	40 to 44 years	20,186,586	±62,410	6.1%	±0.1	10,028,675
10	45 to 49 years	20,398,226	±28,275	6.2%	±0.1	10,079,567
11	50 to 54 years	20,464,881	±22,642	6.2%	±0.1	10,075,795
12	55 to 59 years	21,484,060	±58,829	6.5%	±0.1	10,440,265
13	60 to 64 years	20,984,053	±58,643	6.4%	±0.1	10,051,170	±38,298
14	65 to 69 years	17,427,013	±47,420	5.3%	±0.1	8,191,111	±24,952
15	70 to 74 years	14,148,548	±46,673	4.3%	±0.1	6,529,918	±26,161
16	75 to 79 years	9,759,764	±34,984	3.0%	±0.1	4,367,764
17	80 to 84 years	6,380,474	±30,713	1.9%	±0.1	2,671,396	±20,367
18	85 years and over	6,358,229	±34,321	1.9%	±0.1	2,284,092	±21,784
19	SELECTED AGE CATEGORIES
20	5 to 14 years	41,113,916	±36,636	12.5%	±0.1	21,020,831	±26,657
21	15 to 17 years	12,449,034	±17,681	3.8%	±0.1	6,361,859	±15,524
22	Under 18 years	72,967,785	±33,143	22.2%	±0.1	37,321,627	±29,379
23	18 to 24 years	30,373,170	±42,282	9.3%	±0.1	15,556,254
24	15 to 44 years	130,315,524	±37,167	39.7%	±0.1	65,938,127	±31,255
25	16 years and over	263,534,161	±52,161	80.3%	±0.1	128,496,159	±42,201
26	18 years and over	255,271,738	±33,143	77.8%	±0.1	124,267,346
27	21 years and over	241,886,206	±83,337	73.7%	±0.1	117,407,269	±52,190
28	60 years and over	75,058,081	±67,159	22.9%	±0.1	34,095,451	±41,662
29	62 years and over	66,395,660	±61,054	20.2%	±0.1	29,927,016	±35,972
30	65 years and over	54,074,028	±24,915	16.5%	±0.1	24,044,281
31	75 years and over	22,498,467	±13,862	6.9%	±0.1	9,323,252	±10,172
Data

 

[Fluff]

If those cells in col G are completely empty how about

Sub ceytl()
   Range("G:G").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

 

[ceytl]

If those cells in col G are completely empty how about

Sub ceytl()
   Range("G:G").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

Thanks!

Is there a way to leave the first row, and not delete that row?

 

[Fluff]

Yup, like

Sub ceytl()
   Range("G2:G" & Rows.Count).SpecialCells(xlBlanks).EntireRow.Delete
End Sub