Esta dando o seguinte erro nesta linha do código: Erro em tempo de execução '424': O objeto é obrigatório x = [Notas].Range("E" & Rows.C...

Coluna "D" é onde deveriam aparecer as formulas da coluna "A", só que em VBA. Experimente: Range("D3:D" & Cel...

No código que eu sugeri as fórmulas estão exatamente como você as colocou aqui, então se a segunda não está retornando o resultado correto você precis...

Veja se aproveita. Sub InsereFórmulasValores() Range("A3:A10").FormulaLocal = "=SE(ÉCÉL.VAZIA(D3);SE(C3-HOJE()<0;&q...

Perfeito. Fiz os ajustes básicos e funcionou corretamente. Muito Obrigado pela ajuda Mauro Coutinho. Tópico Resolvido!

Usei a solução do xlarruda. Mas obrigado a todos pela ajuda, é sempre algo simples, e eu quebrando a cabeça.