Sem muita analise , me parece que a rotina irá entrar em loop infinito, pois ao executar o comando e disparado novamente o evento change, e novamente...
Uma maneira de resolver é identificando qual a celula que originou o input, evitando que sempre exeute essa operação
algoassim

If Target.Address = "$D$115" And Target.Value = "APURADO" Then
    [C115].Value = [C115].Value
End If

Ficou show agora, resolveu problema.

Muito obrigado Reinaldo.