Update results based on the date input

Macro code

Sub ExtarctData()
Dim M
Dim D1 As Date, D2 As Date, T&, Lr&, K1&, K2&, X&, N&
Application.ScreenUpdating = False
D1 = InputBox("Enter starting date:", "START DATE"): K1 = D1
D2 = InputBox("Enter Ending date:", "END DATE"): K2 = D2
Lr = Sheets("Requirement").Range("B" & Rows.Count).End(xlUp).Row

M = Filter(Evaluate("transpose(if(('Requirement'!E5:E" & Lr & "<=" & K2 & ")*('Requirement'!F5:F" & Lr & ">=" & K1 & "),ROW(E5:E" & Lr & "),false))"), False, False)
X = 5
Sheets("Results").Range("B5").CurrentRegion.Offset(1, 0).Clear

With Sheets("Requirement")
For T = 0 To UBound(M)
N = M(T): X = X + 1
.Range("B" & N).Copy Sheets("Results").Range("B" & X)
.Range("C" & N & ":H" & N).Copy Sheets("Results").Range("E" & X)
Sheets("Results").Range("C" & X) = D1
Sheets("Results").Range("D" & X) = D2
Next T
End With

With Sheets("Results").Range("B5")
.CurrentRegion.Offset(1, 0).Borders.LineStyle = xlContinuous
End With
Application.ScreenUpdating = True
End Sub

Hello. I attached another way to do it.

Also, I have changed the formulas in column G, incorporating the DatedIf function.

PHP Code: 

Sub Macro8()
Dim Rng As Range
Application.ScreenUpdating = False
With Sheets("Requirement")
  Set Rng = .Range("H4", .Cells(Rows.Count, "B").End(xlUp))
End With
Range("E5") = "=And(" & Rng(2, 4).Address(0, 0, external:=True) & "<=$C$5, " & _
  Rng(2, 5).Address(0, 0, external:=True) & ">=$B$5)"
Rng.AdvancedFilter 2, Range("E4:E5"), Range("B7:H7"), False
Range("E4:E5").Clear
With Range("B7").CurrentRegion
  .Font.Name = "Calibri": .Font.Size = 14: .EntireColumn.AutoFit
End With
End Sub 


Thanks for feed back.