MPrudencio, bom dia.

Ficou bem legal, porém, ainda não consegui entender seu funcionamento, exemplo: acabei de digitar uma nova entrada na aba base e mesmo indo em dados-atualizar tudo não mudou em nada na tabela.

Muito obrigado.

Quanto ao meu arquivo:

Infelizmente, acabei de verificar que está dando erro mesmo, ou seja, a tabela da aba Base somente vai até a linha 36, a partir daí qualquer novo registro não entra nem nos resumos e nem na próprio filtro de status acionado pelos botões na aba Menu.

Como tenho que fazer para que esta tabela se estenda automaticamente conforme uma nova entrada?

grato

Você está atualizando ela ? após inserir um novo dado?

lulenunes, veja se é isso que precisa.
O problema era que a tabela 3 estava fixa, inclui na macro sua o código para redimensionar a tabela 3.

Caros amigos, desculpe a demora em retornar.

- Teleguiado, muito obrigado, funcionou perfeitamente.

- xlarruda e Mprudencio, sim atualizei após a inserção de novo dado, mas devo estar fazendo alguma besteira. Vou estudar mais a respeito de tabela dinâmica.

Sem querer abusar, porém, já abusando, existe alguma forma melhor de filtrar os dados e enviar para a aba Rel?, ou seja, ao aplicar o filtro na aba Base(ex. Cancelado) e todos os dados filtrados são copiados para a aba REL? Pergunto porque da forma que estou criando a Macro está dando problema.

Apliquei este código:

Range("A8:K6008").Clear
    ultimalinha = Plan5.Cells(Rows.Count, "a").End(xlUp).Row
    lin = 8
    For i = 7 To ultimalinha
        If Plan5.Cells(i, 10) = "Vencido" Then
            Plan6.Cells(lin, 1) = Plan5.Cells(i, 1)
            Plan6.Cells(lin, 2) = Plan5.Cells(i, 2)
            Plan6.Cells(lin, 3) = Plan5.Cells(i, 3)
            Plan6.Cells(lin, 4) = Plan5.Cells(i, 4)
            Plan6.Cells(lin, 5) = Plan5.Cells(i, 5)
            Plan6.Cells(lin, 6) = Plan5.Cells(i, 6)
            Plan6.Cells(lin, 7) = Plan5.Cells(i, 7)
            Plan6.Cells(lin, 8) = Plan5.Cells(i, 8)
            Plan6.Cells(lin, 9) = Plan5.Cells(i, 9)
            Plan6.Cells(lin, 10) = Plan5.Cells(i, 10)
            lin = lin + 1
        End If
    Sheets("Rel").Select
    Next

O problema é que não traz a formatação e as bordas das células.

Agradeço a todos vocês pela tremenda boa vontade em ajudar-me.