Macro to select data within a date range.

Try this code .. your output sheet will be sheet2

Sub copyleave()

Dim lastDate As Date
Dim lastRow, counter, incRow As Integer

incRow = 2
lastDate = Date - 13 * 7 ' to fetch last 13 week date

With ActiveSheet
Sheets("sheet2").Range("A1:F1").Value = .Range("A1:F1").Value 'Copy the heading
    lastRow = .Range("A65536").End(xlUp).Row  ' count the how many row

    For counter = 2 To lastRow
        'Checking the condition for 13 week and confirmed No
        If CDate(.Range("D" & counter).Value) >= lastDate And UCase(.Range("F" & counter).Value) = "NO" Then
            
            Sheets("sheet2").Range("A" & incRow & ":" & "F" & incRow).Value = .Range("A" & counter & ":" & "F" & counter).Value
            incRow = incRow + 1
        
        End If
    
    Next

End With

End Sub