从VBA插入公式

我正试图让下面的代码将公式插入到已更改的单元格中。我没有收到任何错误，但是工作表上没有填充代码。对我没有做的事有什么见解吗

formula_p1 = _
 "=GETPIVOTDATA(""Max of " & [value_column_header] & ",Database!R1C14, & _
     ""Key"",& Key &)"
      Debug.Print Cell.Address
          Sheets("Cost Sheet").Cell.Formula = formula_p1

先谢谢你

更新

下面是我当前的代码，我在最后一部分的连接上被卡住了。我不知道如何在VBA中实现这一点。此外，我需要这是一个公式，将重新评估对“家庭”部分的更改，可以在工作表上完成。“族”的更改通过组合框选择完成

formula_1 = _
          "=GETPIVOTDATA(""Max of " & value_column_header & """,Database!$N$1,""Key""," & Concatenate(CurrentHFMFamily, G5, Left(B12, 4)) & ")"

---

这是我努力实现的最终结果。它不漂亮，但它又快又稳

    =IF(INDIRECT(CONCATENATE("B",ROW()))=""," ",IFERROR(GETPIVOTDATA("Max of & _
    "&INDIRECT((ADDRESS(11,COLUMN())))&"_ADJ",Database!R1C14,"Key",& _
    LEFT(INDIRECT(CONCATENATE("B",SUM(ROW()-1))),4)&CurrentHFMFamily& & _
    (OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-(SUM(ROW()-(5))),- & _
    (MOD(COLUMN()+1,4))))),0))

---

感谢大家的想法，他们帮我指出了正确的方向。

表（“成本表”）。单元格

-哪个单元格？使用

工作表（“成本表”）.单元格（1,1）

或

工作表（“成本表”）.范围（“A1”）

或其他内容正在存储更改的单元格地址，并且.Cell正在引用更改的单元格地址。当您按

Ctrl-Alt-F9

时，它是否会更新？然后查看

单元格

是否为范围对象（

将单元格变暗为范围

），不应使用

表（“成本表”）。单元格

，只使用

单元格。公式=公式_p1