从D1复制/粘贴公式到D列中的空单元格，从D6开始，一直到最后一行

Question

我对vba还是很陌生，需要将公式“ 010-RPL”中的D1复制并粘贴到D列中的所有空白单元格中，从D6开始，一直到最后一行。

最近几天，我一直在尝试各种方法，但发现这是最接近的方法，但这对我没有任何意义，只要它删除了我用于数据透视表的标头即可。

这是我获得的最接近的信息，但是它覆盖了我在整个数据中拥有的所有标头。好处是，它将D1中的Vlookup公式作为“ = VLOOKUP（C1，'部门查找'！$ B：$ D，3，FALSE）”，并查看正确的单元格地址。例如：从D6开始，这将在C6中进行vlookup。

Sheets("010 - RPL").Select
LR = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("D6:D" & LR)
Range("D1").Select
Selection.Copy
Rng.Select
ActiveSheet.Paste

我当前的工作表看起来像这样，标题放在顶部。因为该公式未指定“仅空单元格”来复制公式，所以该代码将覆盖第二个标头。在这里的当前示例中，vlookup公式位于“ Dep Lookup标头”下，CTO Office和Engineering引用了另一张表。

MainAccount Dept Dep Lookup January February March April Current Month YTD
------------------------------------------------------------------------
40000       2020 CTO Office 75000   40000   0      60000 60000         175000
40000       2100 Engineering    0       0   0      40000 40000         40000

MainAccount Dept **#N/A** January February March April Current Month YTD
------------------------------------------------------------------------
45000       2020 CTO Office 75000   40000   0      60000 60000         175000
46000       2100 Engineering    0       0   0      40000 40000         40000

创建公式后，页面应如下所示……

MainAccount Dept Dep Lookup January February March April Current Month YTD
------------------------------------------------------------------------
40000       2020 CTO Office 75000   40000   0      60000 60000         175000
40000       2100 Engineering    0       0   0      40000 40000         40000

MainAccount Dept **Dep Lookup** January February March April Current Month YTD
------------------------------------------------------------------------
45000       2020 CTO Office 75000   40000   0      60000 60000         175000
46000       2100 Engineering    0       0   0      40000 40000         40000

我希望这会从D1复制公式并将其粘贴到D列中，从D6到工作表的最后一行，而不会覆盖页面中的各种标题，这意味着它只是复制将该公式放入空单元格直到最后一行。