Excel VBA中最后一行的总和减去1

在Excel中，我有

列M

充满数据，然后在数据的底部有一个标题

我需要将所有的

列M

加总，减去该标题，然后将其放在该标题下的一列中

我对宏还不熟悉，一直在试图弄明白这一点。以下是我尝试过的：

With Over65
Over65M = Over65.Range("M" & .Rows.Count).End(xlUp).Offset(-1, 0)


Over65.Range("M5:M1000").Find("").Formula = "=sum(M5:M" & Over65M & ")"
End With

请帮忙

可能是这样的（对不起，我需要以Sheet1为例；请随意更改）：

---

如果页眉包含文本，则可以对包含页眉的整个范围使用

SUM

函数，因为文本将被忽略。

Sub SumValues()
    Dim Over65              As Worksheet
    Dim Over65M             As Long

    Set Over65 = Sheets("Sheet1")

    With Over65
        Over65M = .Range("M" & .Rows.Count).End(xlUp).Row
        .Range("M5:M1000").Find("").Formula = "=sum(M5:M" & Over65M - 1 & ")"
    End With
End Sub