Boa noite galera,
Fiz a seguinte Macro:

Sub aaaaa()
Dim LinInicial As Integer


LinInicial = 4
Do

If NumCorte(Cells(LinInicial, "a").Value) = NumCorte(Cells(LinInicial, "c").Value) Then
    Cells(LinInicial, "o").FormulaR1C1 = "=((INDEX(FICO!C[-7],MATCH(RC1,FICO!C1,1)+1,1))/20)*ABS(RC1-INDEX(FICO!C1,MATCH(RC1,FICO!C1,1)+2,1))+SUM((INDEX(FICO!C[-7],MATCH(RC1,FICO!C1,1)+3,1):INDEX(FICO!C[-7],MATCH(RC3,FICO!C1,1)-1,1)))+((INDEX(FICO!C[-7],MATCH(RC3,FICO!C1,1)+1,1))/20)*ABS(RC3-INDEX(FICO!C1,MATCH(RC3,FICO!C1,1),1))"
    Else

End If

LinInicial = LinInicial + 1
Loop Until Cells(LinInicial, "a") = ""
DMT
End Sub

Só que em vez de ela recrever a formula na coluna “o” queria que só escrevece o valor desta resposta.
Obrigado!