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