Boa tarde amigos!

eu preciso de um grande favor! Eu preciso de uma macro que Atualize a dinâmica da aba"Farol" e oculte as linhas vazias (para que eu possa juntar todas as dinâmicas, uma embaixo da outra)

As informações vem da aba "BD" na coluna "G"

Exemplo, se eu colocar uma data (01/05/2017) na coluna "G" celula "G24" da aba BD, a macro atualize a dinâmica da aba "Farol" e oculte as linhas que estão vazias na aba "Farol" (Até a linha 73, somente as vazias)

Eu fiz a macro abaixo, mas não está dando certo, alguem pode me ajudar?

Sub escondeLinhas()
Dim x(1 To 5) As Long
Do
x(2) = x(2) + 1
x(1) = Cells(x(2) + 4, 2)
If x(1) = 0 Then GoTo perform Else GoTo rescode
perform:
x(3) = x(3) + 1
rescode:
Loop Until x(2) = 7
If x(3) = 0 Then GoTo rescode2
Rows("7:29").EntireRow.Hidden = True
Rows("35:72").EntireRow.Hidden = True
rescode2:
'Rows("17:23").EntireRow.Hidden = True

End Sub

Obrigado