I need VBA to delete lines related to date

[Aussiebear]

maybe try this version

Sub sbDelete_Rows _Date()
Dim lRow As Long
Dim iCntr As Long
lRow = 10000
For iCntr = lRow To 12 Step -1
    If Cells(iCntr, 21) = Today() Then
        Rows(iCntr).Delete
    End If
Next
End Sub