Macro not showing Text Total

[howard]

I have a macro below to show text "Total" in Column A and the total value in Column B in row 30

The data is filtered, so a subtotal needs to compute the value of the values displayed

 Sub Totals_Extract()
Dim Finalrow As Long
With Application
    .ScreenUpdating = False
    .CutCopyMode = False
    .Calculation = xlCalculationManual
End With
         
   
        With Sheets("Extract")
            Finalrow = .Range("A65536").End(xlUp).Row
            .Range("A" & Finalrow + 3).Value = "Total"
            .Range("B" & Finalrow + 3).FormulaR1C1 = "=SUBTOTAL(9,R[-25]C:R[-1]C)"
            End With
        
              
With Application
    .ScreenUpdating = True
    .CutCopyMode = False
    .Calculation = xlCalculationAutomatic
 End With
End Sub

It would be appreciated if someone could amend my code

 

[Anthony47]

Try this version:

Sub Totals_Extract()
Dim Finalrow As Long
'
With Sheets("Foglio1")
    Finalrow = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("A" & Finalrow + 3).Value = "Total"
    .Range("B" & Finalrow + 3).Formula = "=SUBTOTAL(9,B2:B" & Finalrow & ")"
End With
End Sub

 

[howard]

Many thanks Anthony47. Your code works perfectly

 

[Anthony47]

Thank you for the feedback