Excel VBA用于查找空白单元格

我有一段代码，其中数据位于Sheet1中。该代码在Sheet4中创建了一个透视表，我尝试将特殊透视粘贴到Sheet2中。直到它正常工作。现在，我试图在其中找到空白单元格，并尝试粘贴上单元格的值。但是它不起作用

    Sheet2.Range("A1:D5").SpecialCells.Select
 Selection.FormulaR1C1 = "=R[-1]C"

---

我刚刚放进了一个样品范围。我需要对表2中的整个pivot数据执行此操作。有什么想法吗？

首先选择透视表的数据部分（不要选择标签），然后运行：

Sub dural()
    If Selection(1) = "" Then Exit Sub
    On Error Resume Next
    Set r = Selection.Cells.SpecialCells(xlCellTypeBlanks)
    If r Is Nothing Then Exit Sub
    r.Value = Selection(1)
End Sub