Excel VBA索引仅匹配空行

Question

我有很长的数据列表，例如。 5000行，有些已填满数据，有些是空白，我想在空白单元格中添加公式，我有低于vba代码，但在具有固定行号的公式中存在问题，即。 E3435，如果我需要根据不同的行号添加公式，如何用vba代码替换它？谢谢

Sub FillInBlanks()
Dim rng As RANGE, cell As RANGE
Set rng = ActiveSheet.RANGE("c3:A4133")
For Each cell In rng
   If IsEmpty(cell) Then
   cell.formula = "=DATE(YEAR(E3435),MONTH(E3435),DAY(E3435))"
   End If
  Next cell
End Sub