Conditional insert

[jmklei0]

I'm trying to transfer the DOR Code column to DOR only if the Petition Date is less than three weekdays in the past and and the current value is blank.

From what I've tried already, the DOR cells are still blank for ones that should have the new DOR Code (Recent dates). Any idea how I can actually get the DOR codes to copy over correctly?

This is what I've come up with so far...

'Apply DOR Codes to petitions not in CAT Yet
    Dim D As Range
    Dim LDate As Double
    Dim i As Integer
    LDate = DateAdd("w", -3, Date)
    For i = 1 To table1.Rows.Count
        If table1.ListColumns("Petition Date").DataBodyRange > LDate Then
            Set D = table1.ListColumns("DOR").DataBodyRange.Cells.SpecialCells(xlCellTypeBlanks)
            D.Formula = "=[@[DOR Code]]"
        End If
    Next i

Thank you.