Conditional format based on multiple criteria macro

" the most recent two years" date are picked up in column "FY"
"has been 0 " is for column "Cost"
Is it

Assuming date in column A and Cost in column D

Option Explicit

Sub Treat()
Dim DateRg As Range
Dim LDate As Date
Dim F  As Range
    Set DateRg = Range("A2:A" & Range("A" & Rows.Count).End(xlUp))
    LDate = Application.WorksheetFunction.Max(DateRg)
    For Each F In DateRg
        If (F >= DateSerial(Year(LDate) - 2, Month(LDate), Day(LDate))) Then
           If (F.Offset(0, 2) = 0) Then                '  2 columns on the right
                F.EntireRow.Interior.Color = 65535
            End If
        End If
    Next
End Sub

OK same player shot again

Option Explicit

Sub Treat()
Dim DateRg As Range
Dim LDate As Integer
Dim F  As Range
    Set DateRg = Range("A2:A" & Range("A" & Rows.Count).End(xlUp))
    LDate = Application.WorksheetFunction.Max(DateRg)
    For Each F In DateRg
        If (F >= LDate - 1) Then
            If ((F.Offset(0, 19) = 0) And (F.Offset(0, 19) <> "")) Then             '  19 columns on the right
                F.EntireRow.Interior.Color = 65535
            End If
        End If
    Next
End Sub

Here a remake

Option Explicit

Sub Treat()
Dim WkTb
Dim I As Long
Dim ObjDic   As Object
Set ObjDic = CreateObject("Scripting.Dictionary")
Dim SelRg  As Range
Dim AAA, BBB
    With ObjDic
        WkTb = ActiveSheet.UsedRange
        For I = 2 To UBound(WkTb, 1)
            If (.exists(WkTb(I, 6))) Then
                If (WkTb(I, 1) > .Item(WkTb(I, 6))) Then .Item(WkTb(I, 6)) = WkTb(I, 1)
            Else
               .Item(WkTb(I, 6)) = WkTb(I, 1)
            End If
        Next I
        Set SelRg = Cells(UBound(WkTb, 1) + 2, 1)
        For I = 2 To UBound(WkTb, 1)
            If (.exists(WkTb(I, 6))) Then _
                If ((WkTb(I, 1) >= .Item(WkTb(I, 6)) - 1) And (WkTb(I, 20) = 1)) Then .Remove (WkTb(I, 6))
        Next I
        For I = 2 To UBound(WkTb, 1)
            If (.exists(WkTb(I, 6))) Then
                Set SelRg = Union(SelRg, Cells(I, 1))
            End If
        Next I
    End With
    SelRg.EntireRow.Interior.Color = 65535
    Cells(UBound(WkTb, 1) + 2, 1).EntireRow.Delete
End Sub

Here the file used.
If it don't work with your file send it to me

Yes there is.
Here attached the same with a short cut: Control + a

And can you send me your file, just change the data for column A, F, T and delete all others columns cells