VBA Renvoyer le résultat d'une cellule dont la valeur peut varier

Bonjour,

Je me lance dans l'écriture d'une macro Excel et je suis complétement bloquée car malgré mes recherche je ne parviens pas à obtenir le résultat voulu.

Dans cette macro, je parviens à faire des sous-totaux dans un tableau de valeurs, ensuite j'aimerai que le total final (la dernière ligne du tableau) se remplisse également dans la cellule "E6", en simple je voudrai faire un "=E255" dans la cellule E6 mais en demandant de récupérer la dernière cellule non vide du tableau.
Avec ma macro, je parviens à récupérer la valeur de la dernière cellule non vide mais celle-ci vient à changer (suite à une actualisation de valeur par exemple) la cellule E6 ne se met pas à jour.

Sub Soustotal()
'
' Soustotal Macro
'

'
Range("B9").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5, 6, 7, _
8, 9, 10, 11), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("B21:L225").Select
Selection.SpecialCells(xlCellTypeVisible).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0
End With
Selection.Font.Bold = False
Selection.Font.Bold = True
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("E6").Select
Application.CutCopyMode = False
der_lig = Range("E" & Rows.Count).End(xlUp).Row
ActiveCell.FormulaR1C1 = Cells(der_lig, 5)
Range("E6").Select
Selection.AutoFill Destination:=Range("E6:L6"), Type:=xlFillDefault

End Sub



Merci de votre aide et bonne journée.
Sophie