Hide rows next to first blank cell in a specific column

[girapas]

In the sheet1 all the cells of columns C to H are populated with data by a formula that get data from another sheet.
The cell of the column G that corresponds to the current month is always blank.
Which is the code to hide all the rows next to the row of that blank cell (e.g. rows 12 to 25 in sheet1)?
Thanks in advance

Book1
	A	B	C	D	E	F	G	H
1		year	month	data1	data2	data3	data4	data5
2	1	2013	Jan	705	888	933	920	673
3	2		Feb	307	562	535	920	440
4	3		Mar	776	850	901	784	814
5	4		Apr	298	706	340	242	396
6	5		May	416	986	548	863	738
7	6		Jun	805	913	792	413	304
8	7		Jul	835	580	364	591	241
9	8		Aug	418	626	220	240	744
10	9		Sep	255	355	605	468	928
11	10		Oct	25	19	20		15
12	11		Noe
13	12		Dec
14	1	2014	Jan
15	2		Feb
16	3		Mar
17	4		Apr
18	5		May
19	6		Jun
20	7		Jul
21	8		Aug
22	9		Sep
23	10		Oct
24	11		Noe
25	12		Dec
Sheet1

 

[Rick Rothstein]

Does this macro do what you want...

Sub HideRowsAfterCurrentMonth()
  Dim LastRow As Long
  LastRow = Evaluate("MAX(ROW(G1:G65535)*(G1:G65535<>""""))") + 2
  Range(Cells(LastRow, "G"), Cells(Rows.Count, "A").End(xlUp)).EntireRow.Hidden = True
End Sub

 

[girapas]

Thank you for your help

 

[Rick Rothstein]

Thank you for your help

While I am guessing you will never have enough data for the following change to matter, I have changed the 65535 hard-coded values (which are really XL2003 limits) and replaced them with generalize limits which will automatically use the number of rows in whatever version of Excel you are using...

Sub HideRowsAfterCurrentMonth()
  Dim LastRow As Long
  LastRow = Evaluate("MAX(ROW(G1:G" & Rows.Count - 1 & ")*(G1:G" & Rows.Count - 1 & "<>""""))") + 2
  Range(Cells(LastRow, "G"), Cells(Rows.Count, "A").End(xlUp)).EntireRow.Hidden = True
End Sub