Baixe o exemplo em anexo e veja se te atende.

Tive que mudar um detalhe na COLUNA L. Vi que voce coloca FINALIZADO e depois uma observação de data de envio.
Eu coloquei essa observação de data de envio na coluna seguinte, pois senão a pesquisa da palavra "FINALIZADO" sempre encontraria um valor diferente já que as datas devem ir mudando.

Guima, eu tive a mesma ideia, mas vc foi mais rápido.

Entretanto, sobre fazer uma nova coluna, creio que poderia fazer uma pequena alteração. Como ele sempre coloca o FINALIZADO no começo, acho que dava pra evitar a coluna auxiliar, trocando a linha abaixo:

If Sheets("FOLLOW UP-EM ANDAMENTO").Cells(X, 12).Value = "FINALIZADO" Then '1 coluna pequisa

por esta

If Left(Sheets("FOLLOW UP-EM ANDAMENTO").Cells(X, 12).Value, 10) = "FINALIZADO" Then '1 coluna pequisa

Abs

Eu fui mais rápido, mas sua idéia foi PERFEITA !!

Abs

Mais uma contribuição,
utilizando Filtro Avançado, ao executar a rotina aparecerá um ImputBox para digitar o texto que quer, clicando em OK é feito a filtragem pela coluna "L" e enviado para a planilha destinada.
Se o texto a ser filtrado for sempre o mesmo, é só remover o imputbox e deixar o texto direto na rotina.

AutoFiltro por Parte do Texto para outra aba

[]s

Muito obrigado, na vdd ficou muito melhor do q eu havia pensado.
Valeu mesmo pela ajuda em conjunto.

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