Makro na součet jednoho sloupce v zápatí stránky

proč to musí být makro?

nemusí. cokoliv mi pomůže.

tačvůd asi jemně naznačuje, jestli by třeba nestačila "suma"

stačila.
jenže to budou vyplňovat zaměstnanci, tudíž nevím, kolik buněk bude obsahovat. a já potřebuji dát celkový součet do zápatí nebo pod poslední zápis. a to právě nevím, jak udělat, aby tam byl automaticky bez toho, aby oni museli něco udělat. protože oni si tam sami součet nedají.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim PosledniRadek As Long
Dim Soucet As Long

PosledniRadek = Cells(Rows.Count, "F").End(xlUp).Row
Soucet = WorksheetFunction.Sum(Range("F1:F" & PosledniRadek))
ActiveSheet.PageSetup.CenterFooter = _
Format("Počet ujetých kilometrů: " & Soucet)
End Sub