Delete date in cell if date is older than 5 days and adjacent cell is blank (vba)

[LilacCat]

Hello, can anyone help me with this please - the macro is deleting all dates older than 5 days even if the adjacent cell is not empty:

Sub DeleteOldDates()

Dim RFA As Range
Dim RFARng As Range
Dim CurrentDate
Dim tblTracker As ListObject
Dim lrow As Long

Set tblTracker = shTracker.ListObjects("tblTracker")
lrow = tblTracker.Range.Rows(tblTracker.Range.Rows.Count).Row

Set RFARng = Range("Z20:Z" & lrow)
CurrentDate = Date

Application.ScreenUpdating = False

On Error Resume Next

For Each RFA In RFARng
    If RFA.Offset(0, 1) = "" And WorksheetFunction.WorkDay(RFA.Value, 5, Range("Holidays")) < CurrentDate Then
        RFA.ClearContents
    End If

Next RFA

Application.EventsEnable = True
Application.ScreenUpdating = True
    
End Sub

I have also tried if ISBLANK(RFA.Offset(0, 1)) but that didn't work either

tyvmia

 

[Micron]

You need to step through the code and check your variable (or range) values and/or data types. If you are referring to this line as being the one that deletes

If RFA.Offset(0, 1) = "" And WorksheetFunction.WorkDay(RFA.Value, 5, Range("Holidays")) < CurrentDate Then

then both things must be True even if you think they are not.
One way might be to temporarily comment out the delete line and debug.print the components and check the output. Perhaps like

Debug.Print RFA.Offset(0,1) & " Function Value: " &  WorksheetFunction.WorkDay(RFA.Value, 5, Range("Holidays")) & " Current_Date: " & CurrentDate

 

[LilacCat]

You need to step through the code and check your variable (or range) values and/or data types. If you are referring to this line as being the one that deletes

then both things must be True even if you think they are not.
One way might be to temporarily comment out the delete line and debug.print the components and check the output. Perhaps like

Debug.Print RFA.Offset(0,1) & " Function Value: " &  WorksheetFunction.WorkDay(RFA.Value, 5, Range("Holidays")) & " Current_Date: " & CurrentDate

Thank you