Como não citou, implementei a rotina para efetuar os calculos digitando-se nas Colunas B e C, não restringindo somente as celulas de seu modelo, se for para ficar somente nos Ranges, é so ajustar, e se não conseguir avise.

Clique com o Botão direito na aba e selecione "Exibir Código" e cole a rotina abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sUltimoValor
    Dim sValorAtual
    Dim stgColuna
    
    stgColuna = Target.Column 'Numero da coluna
    
    Select Case stgColuna
    
        Case 2
            sUltimoValor = Range(Target.Address).Offset(0, -1).Value
            sValorAtual = Target.Value
        
            Application.EnableEvents = False
            Target.Offset(0, 1).Value = sValorAtual / sUltimoValor - 1
            
        Case 3
            Application.EnableEvents = False
            sUltimoValor = Range(Target.Address).Offset(0, -2).Value '1 esquerda
            sValorAtual = Target.Value
        
            Target.Offset(0, -1).Value = sUltimoValor * (1 + Target.Value)
            
        Case Else
     
    End Select

    Application.EnableEvents = True
    
End Sub

Perfeito!

Muito Obrigado, Mauro.