Aqui tienes lo que necesitas:
Sub sumar80filas()
Dim ultima As String
Dim primera As String
Dim myRange As Range
'Estoy suponiendo que comienzas en A2,
'pero el rango adecualo a tus necesidades
'o agregale un inputbox para ingresar el rango de inicio;
'lo cual te permitira seleccionar el rango,
'aunque si es fijo con esto, tal cual, estara bien
'OK lo primero, encuentro la última celda con datos será:
Range("A2").End(xlDown).Activate
ultima = ActiveCell.Address
'luego encuentro la fila 80 contando desde la ultima hacia arriba
primera = ActiveCell.Offset(-79, 0).Address
'esta linea es para que sepas el rango a sumar
'y lo rectifiques pero no es necesaria,
'es por si escojes rango variable mediante el imputbox
rangito = MsgBox("El rango correspondiente a las últimas 80 filas es " _
& "(" & (primera & ":" & ultima) & ")", vbInformation, _
"Se efectuará la operación sobre el siguiente rango >>>!!!")
'Ahora sumo el rango de las dos variables y listo
Set myRange = Worksheets("Hoja1").Range(primera & ":" & ultima)
sumatoria = Application.WorksheetFunction.Sum(myRange) / 120
'devuelvo el resultado en B40 pero tambien
'adecualo a tus necesidades
Range("B40").Value = sumatoria
Set myRange = Nothing
End Sub