Boa noite,

Fiz um código 'amador', porém está muito pesado.

Demora certa de 3 minutos ou mais para finalizar.

Private Sub FormulaImportCC()

Application.ScreenUpdating = False
    
Dim Linha As Integer
Dim UltimaLinha As Integer

UltimaLinha = Plan35.Cells(Rows.Count, "A").End(xlUp).Row

    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 3).Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-1])"
    
    Next Linha
    
Application.StatusBar = "Atualizando dados... 35% Concluídos!"
    
    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 4).Select
    ActiveCell.FormulaR1C1 = "=IFERROR(RC[-1]/RC[-3],""-"")"
    
    Next Linha
    
Application.StatusBar = "Atualizando dados... 50% Concluídos!"
    
    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 5).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]<>0,IF(RC[-1]>=0,1,-1),IF(AND(RC[-4]=0,RC[-3]<>0),0,""-""))"
    
    Next Linha
    
Application.StatusBar = "Atualizando dados... 65% Concluídos!"
    
    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 8).Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-1])"
    
    Next Linha
    
Application.StatusBar = "Atualizando dados... 80% Concluídos!"
    
    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 9).Select
    ActiveCell.FormulaR1C1 = "=IFERROR(RC[-1]/RC[-3],""-"")"
    
    Next Linha
    
Application.StatusBar = "Atualizando dados... 90% Concluídos!"
    
    For Linha = 3 To UltimaLinha
    
    Cells(Linha, 10).Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]<>0,IF(RC[-1]>=0,1,-1),IF(AND(RC[-4]=0,RC[-3]<>0),0,""-""))"
    
    Next Linha
    
End Sub