Sumar celdas en la ultima celda vacía de la columna

Es un placer ayudarle. Pues es fácil si utilizas VBA. Allí la tienes. Puedes introducirla en el evento que mejor te convenga.
'declaro las variables a utilizar
dim fil as integer, inifil, as integer, col as integer
'las inicializo
fil=1 : col=1 : inifil=fil
'recorro todas las celdas con datos
do
if cells(fil, col)=empty then exit do 'si encuentro una celda vacia me detengo
fil=fil+1 'cambio de fila
loop
'coloco la formula en la celda de resultados
cells(fil+2,col).formula="=sum(a" & cstr(inifil) & ":a" & cstr(fil) & ")"