Amiga Elena ahi te envio la rutina para eso (con unas cositas de mas, pero bueno si no quedaba muy corto); claro como te dijo Daniel anteriormente desde Hoja de calculo como tal no se puede, pero desde VB si.
Debes acomodar el rango a tus necesidades ahi aparece desde A2:A9 pero agregale el que tu desees. La forma de como ejecutarlo tambien la decides tu ahi esta en un modulo, este se lo puedes asignar a un Boton para que se ejecute antes de imprimir que es como yo lo hago, pero opciones son las que sobran, si necesitas algo mas no dudes en postear de nuevo, saludos....
Sub Resultado()
Dim myRange As Range
Set myRange = Worksheets("Hoja1").Range("A2:A9")
answer = Application.WorksheetFunction.Sum(myRange)
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.Name & " " & " &A & a las & &T &D"
.RightFooter = "Resp. " & Application.UserName
.CenterFooter = answer
End With
Set myRange = Nothing
End Sub