使用VBA对活动单元格上方的几个单元格求和

我需要使用VBA设置一个单元格，使其与活动单元格上方的几个单元格相加。我已经使用了一些我遇到的代码，但它设置为将整个列拉到活动单元格上方。我对代码理解不够，无法将其修改为上面两行和三行单元格的总和。以下是我到目前为止得到的信息（仅发布了宏的一部分）：

---

一个简单的例子：四分之一的数据可能使用402行。我在403中总结了第1-402行。404正在从另一张账单中提取一笔款项。我需要406把403和404加起来。如果我需要澄清任何事情，请让我知道，并提前感谢您的帮助

此答案由pnuts提供（网站不允许我选择他的回答作为答案）：

“选择406单元后

Selection.FormulaR1C1 = "=SUM(R[-3]C:R[-2]C)" 

–昨天的pnuts“

以下是我如何将其应用于自己的宏：

Range("U1").End(xlDown).Offset(3, 0).Select
Selection.FormulaR1C1 = "=SUM(R[-4]C:R[-3]C)"

---

这允许宏转到U列的末尾（我在这里建立了两个求和单元格），然后向下选择三行单元格。然后，此单元格将对上面的第4行和第3行单元格求和。

使用excel会更容易formula@phil652我当然愿意这样做。如何将活动单元格的第2行和第3行相加？我更愿意在代码中完成这项工作，其目的是使这一过程自动化，因此手动完成这项工作将无法达到这一目的。我尝试使用“ActiveCell.FormulaR1C1”代码，但没有得到任何结果。谢谢你的洞察力。@pnuts太棒了！再次感谢你的帮助，普努斯。我遇到的唯一问题是我的行：ActiveCell.FormulaR1C1=“=SUM（'Asset_Dtl for CEQs for FAS 157'！J:J）”在宏运行后，单元格将保留“=SUM（'Asset_Dtl for CEQs for FAS 157'！J：（J））”我必须手动删除第二个J的括号。你知道是什么偶然导致了这个问题吗？@pnuts Aaah我明白了。我在没有R1C1部分的情况下试了一下，效果不错。它给出了#REF错误，但当我进入单元格并点击enter时，它会提取正确的数据。我将继续扮演这个角色。非常感谢您在这方面的帮助，非常感谢。保重@pnuts嘿pnuts，很抱歉让这一切继续下去，但我看不到选择您的回答作为答案的选项？

Range("U1").End(xlDown).Offset(3, 0).Select
Selection.FormulaR1C1 = "=SUM(R[-4]C:R[-3]C)"