Код VBA для копирования и вставки на основе термина и диапазона дат

Question

У меня есть лист с тысячами строк (шаблон), и я создал код для фильтрации на основе ключевых терминов, так что только активные проекты копируются в новый лист (отчет). Однако теперь я хотел бы также показать все проекты, выполненные за последние 2 недели.

Я довольно новичок в VBA, поэтому я не уверен, как добавить шаг, который будет смотреть на столбец D и определятьпопадает ли он в диапазон дат, который находится между «сегодня» и «сегодня - 14 дней»

Это код, который я использую:

Sub Copy_Data()

    Dim Src As Worksheet, Dst As Worksheet
    Dim LastRow As Long, r As Range
    Dim CopyRange As Range

    Set Src = Sheets("Template")
    Set Dst = Sheets("Report")

    LastRow = Src.Cells(Cells.Rows.Count, "B").Row
    For Each r In Src.Range("B2:B" & LastRow)
        If r.Value = "Planning" Or r.Value = "On Hold" Or r.Value = "Acknowledged" Or r.Value = "Gathering Info" Or r.Value = "" Then
            If CopyRange Is Nothing Then
                Set CopyRange = r.EntireRow
            Else
                Set CopyRange = Union(CopyRange, r.EntireRow)
            End If
        End If
    Next r

    If Not CopyRange Is Nothing Then
        CopyRange.Copy Dst.Range("A3")
    End If

End Sub

Я пытался использовать макрос записи, но мои знания правильного синтаксиса ограничены.