拉引用一个公式的行

Question

如果特定列（Col H）中的单元格的值大于或等于给定日期，我有一个宏来复制/粘贴行 -

Sub test30()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("H" & i).Value >= #1/1/2018# Then Rows(i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End Sub

这很好用，但我没有使用＃1/1/2018＃，而是想在单元格B4中引用上个月第1天的公式（= EOMONTH（今天） （）， - 2）+1）

我尝试用“Cell B4”，Range（“B4”），。Cell（4,2）替换日期，但没有任何效果。我错过了什么？