Excel

Te hago una pregunta las variables es y e de donde las sacas, ¿escribís vs el valor? Lo que tendrías que hacer en todo caso seria poner en la macro
ActiveCell.FormulaR1C1 = "=SUM("R[" & s & "]C:R[" & e & "]C)""
Pero no si te funcionara porque no se de donde sacas los valores del es y e.
Otra solución seria supongamos en AV1 pones 6 y en AW1 pones 3000, esto serán los rango de suma
Entonces a la macro le agregas estos valores
s=Range("AV1")
e=Range("AW1")
Range("AV6").Select
ActiveCell.FormulaR1C1 = "=SUM("AV" & s & ":AV" & e & ")""
Cualquier duda me consultas

Hola, a continuación te muestro el código de la macro completo. Añadiendo lo que me has comentado me sale un error de compilación.
La variable (s) y (e) no las pongo manualmente sino que van variando en función de los valores que tenga la variable ( i) como puedes ver a continuación.
Sub Calculotiempoarranqueyparadag1()
Dim final As Boolean
Dim i As Long
Dim e As Long
Dim s As Long
final = False
i = 11
Calculate
Do While final = False
    If Cells(i, 20) > 5 Then
        Cells(i, 1).Select
        Selection.Copy
    Range("S2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        final = True
      Cells(6, 19) = i
       s = i
    Else
        i = i + 1
    End If
Loop
final = False
i = 11
Do While final = False
    If (Cells(i, 20) > 180 And Cells(i, 30) < 5 And Cells(i, 31) < 5 And Cells(i, 32) < 5) Then
        Cells(i, 1).Select
         Selection.Copy
        Range("T2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
           final = True
           Cells(6, 20) = i
           e = i
    Else
        i = i + 1
    End If
Loop
   Range("AV4").Select
   ActiveCell.FormulaR1C1 = "=SUM("R[" & s & "]C:R[" & e & "]C)""
End Sub

La planilla me la podrías mandar a mi email

Ok, ¿cuál es tu email?

[email protected] este es mi email