Ocorre que após finais de semanas e feriados, o dado fica em dia sem movimentação e preciso corrigir manualmente.

Gostaria de inserir na rotina uma busca, e selecionar a linha correta para colocar o dado do dia útil anterior ao(s) feriados.

Agradeço qualquer colaboração.

Print da tabela: onde "F" é Feriado, "S" é Sábado e "D" é domingo.

 Rotina que utilizo, mas sempre em "T" & ultimaLinha -1.Select, não são considerados feriados, sábados e domingos...

' Esta rotina seleciona e copia a célula (Q6-DI Acum) atualizada em "Evol_Dia"

       Sheets("Diário").Select

       Range("Q6").Select

       Selection.Copy

       Sheets("Evol_Dia").Select

       Sheets("Evol_Dia").Range("T" & ultimaLinha - 1).Select

       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

           :=False, Transpose:=False

       Range("A1").Select