Bom dia!!

Claudinei, por favor nos ajude a te ajudar!!

Você tem tem várias guias, vários módulos e além disso, não está obedecendo a regra de postar o arquivo compactado!!!

Tente expor maior detalhes quando postar....

Att

Bom dia!!

Exemplos avulsos para que você possa tentar adaptar.

Sub teste()


[G8].Formula = "=Sum(E8:F8)"



End Sub
Option Explicit

Sub sumRng()
    Dim rng    As Range
    Dim tot As Double
   
    With ActiveSheet
        Set rng = .Range(.Cells(1, 10), .Cells(.Rows.Count, 10).End(xlUp))
    End With
    tot = Application.WorksheetFunction.Sum(rng)
    MsgBox tot
End Sub
Dim Lr As Long
Lr = Cells(Rows.Count, "J").End(xlUp).Row + 1
Cells(Lr, "j").Formula = "=SUM(J1:J" & Lr - 1 & ")"

Claudinei,

Qdo utiliza :
.Cells(Z, 5).Value = "=SOMA" & "(E8" & ":E" & w & ")"
.Cells(Z, 6).Value = "=SOMA" & "(F8" & ":F" & w & ")"
está "dizendo" para linserir um determinado valor, no caso uma string (texto)

Para inserir uma formula em uma celula deve utiliza .Formula ou .FormulaLocal ou .formulaR1C1
sua linha de codigo deve ficar:
utilizando .FormulaLocal (uso da função na lingua em que esta o aplicativo)
Cells(z, 5).FormulaLocal = "=Soma(E8:E" & w & ")"
utilizando .Formula (uso da função em ingles)
.Cells(z, 5).FormulaLocal = "=Sum(E8:E" & 9 & ")"

Valeu Reinaldo , mais uma vez