Excel VBA - Code that does not autofill entire table column with the same formula
<p>I am working with a table object and I need code to sort through column 3 and change any occurance where the date (mmm-d) is reading "Jan-0." Because I am working with a table object, every time I try to reference column "Clock Out" (E), which is formatted as such:</p>

<p>m/d/yyy hh:mm:ss AM/PM,</p>

<p>with a .formulaR1C1 piece of code, it changes each cell in column 3 to that formula. This is a problem because I would like column C (Date) to be determined by the value in column D (Clock In), or, if column D is empty, then I would like it to be populated by the value in Column E (Clock Out).</p>

<p>There are no occurrences where both Column D and Column E are empty.    </p>

<pre><code>currentSht.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(erow, ecol)), , xlYes).Name = "Table1"
Set lst = currentSht.ListObjects("Table1")
lst.ListColumns.Add Position:=3
currentSht.Range("C2").Value = "=TEXT([@[Entry Time]],""mmm-d"")"

lstHeaders = Array("", "ID", "Agent Name", "Date", "Clock In", "Clock Out")
For i = 1 To 5
lst.ListColumns(i).Name = lstHeaders(i)
Next i

***Concerning portion of code***
For i = erow to 1 step -1
    if cells(i,3).TEXT = "Jan-0" Then
        cells(i,3).Value = "=([@[Clock Out]],""mmm-d"")"
    end if
next i

End Sub
</code></pre>