Anexa a planilha simulando o resultado esperado para analisarmos.

Pode ser assim:

Sub Procura_OcultaLinhas_GT()
Application.ScreenUpdating = False
On Error GoTo FIM
Dim Celula
Celula = UsedRange.Find("Total").Row
Range("A1:A" & Rows.Count).EntireRow.Hidden = False
Range(Cells(Celula, "A"), Cells(Rows.Count, "A")).EntireRow.Hidden = True
FIM:
Application.ScreenUpdating = True
End Sub

Anexa a planilha simulando o resultado esperado para analisarmos.

Talvez nem precise enviar anexo.
Só queria ocultar automaticamente todas as linhas da planilha após uma certa linha, em geral, seria a linha de rodapé onde fica a palavra TOTAL.
Acontece que a planilha não tem um número de linhas fixas, pois dados podem entrar e sair.
Tentei selecionando todas as linhas após TOTAL e ocultando manualmente.
Porém, ao excluir uma linha, algumas linhas ocultas reaparecem.
Essa é a situação.

Pode ser assim:

Sub Procura_OcultaLinhas_GT()
Application.ScreenUpdating = False
On Error GoTo FIM
Dim Celula
Celula = UsedRange.Find("Total").Row
Range("A1:A" & Rows.Count).EntireRow.Hidden = False
Range(Cells(Celula, "A"), Cells(Rows.Count, "A")).EntireRow.Hidden = True
FIM:
Application.ScreenUpdating = True
End Sub

Funcionou perfeitamente.
Teria como acionar essa macro sempre que uma linha fosse excluída, que é quando ocorre o problema das linha ocultas reaparecerem.
Não conheço um evento da planilha que seja disparado quando uma linha é excluída.
Tem jeito?

tenta o worksheet_Change

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.