Private Sub Worksheet_Calculate()
Dim count
count = 5
Do Until Range("A" & count) = "" And Range("G" & count) = "" And Range("M" & count) = ""
count = count + 1
Loop
Rows(count & ":25").Hidden = True
count = 28
Do Until Range("A" & count) = "" And Range("G" & count) = "" And Range("M" & count) = ""
count = count + 1
Loop
Rows(count & ":47").Hidden = True
count = 51
Do Until Range("A" & count) = "" And Range("G" & count) = "" And Range("M" & count) = ""
count = count + 1
Loop
Rows(count & ":70").Hidden = True
count = 74
Do Until Range("A" & count) = "" And Range("G" & count) = "" And Range("M" & count) = ""
count = count + 1
Loop
Rows(count & ":93").Hidden = True
End Sub
Bookmarks