Minha sugestao separa em duas planilhas uma de apurando e outra de apurado e coloca um botao pra mover os valores apurados para a outra planilha

Acredito que este post vai alem do questionado devido a falta de mais detalhes, por exemplo :

O que seria esta os na aba ? :Fórmula para transferir valores para APURAÇÃO "=DIÁRIO!CÉLULA"

Temos uma Tabela com Meses de Janeiro a Dezembro, e onde quer inserir as formulas refere-se a Janeiro, mas busca os valores em uma outra tabela referente a Setembro ?

Mas voltando a questão da Rotina, o básico é :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sCondicao

    If Target.Address = "$C$39" Then
        
        sCondicao = Target.Value
        
        Select Case sCondicao
            
            Case "APURADO"
                [D39].Value = [D39].Value
                [E39].Value = [E39].Value
                [F39].Value = [F39].Value
                [G39].Value = [G39].Value
            
            Case "APURANDO"
                [D39].FormulaLocal = "=C32+E32"
                [E39].FormulaLocal = "=D32+F32"
                [F39].FormulaLocal = "=G32"
                [G39].FormulaLocal = "=H32"
        
        End Select
        
    End If

End Sub

[]s

Bom dia colegas.

Mauro sua ajuda foi muito útil, era exatamente isso que eu precisava.

Geralmente não peço que resolvam toda a planilha, apenas com uma dica eu consigo fazer o restante.
Nesse caso mencionei somente o mês janeiro, mas farei para os outros meses.

Obrigado a todos.