求和宏与activecell的循环

Question

我对VBA相当新，我正在尝试创建一个简单的宏。我希望这个宏将三个值相加，这三个值是总和所在的三列。 （例如，如果我希望总和在D100，那么这个总和将包括来自A100，A99，A98单元格的值。然后下一个总和将在D97，并将包括单元格A97，A96和A95，依此类推，直到我我在电子表格的顶部）。我的数据一直持续到第2行。

下面是我写的当前宏，但它似乎出现了语法错误，我不知道为什么。对此有任何帮助将非常感激。

Sub Sortmacro()

Range("O17959").Activate

ActiveCell.Offset(0, -3).Select

If ActiveCell = Range("O1") Then End Sub

    ActiveCell.FormulaR1C1 = "=SUM(R[-2]c[-3]:RC[-3])"

    ActiveCell.Offset(0, -3).Select

Loop

End Sub