Filling with Today's Date if Blank

Good afternoon!

I am trying to fill blank cells in a column with today's date if they are blank. However, if there is a date, I would like that to stay as is.

This is what I have but it errors:

Dim lrB As Long
lrB = ws1.Cells(Rows.Count, "I".End(xlUp).Row
If Cells.Range("E2:E" & lrB) = "" Then
Range("E2") = Date
End If

I have tried other ways but in vain.

Re: Filling with Today's Date if Blank

I just tried this one and nothing happened:

With Range("E2:E" & lrB)
For i = 1 To lrB
If i = "" Then
Value = Date
End If
Next i
End With

Re: Filling with Today's Date if Blank

So far this one gave me a date but skipped over rows:

For i = 2 To lrB
If Worksheets("Sheet1").Cells(i, 5).Value = "" Then
Cells(i, 5).Value = Date
End If
i = i + 1
Next I

Re: Filling with Today's Date if Blank

Ok, never mind. I got it.