Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("F8:H" & Rows.Count).Delete xlUp
With Selection
With ListObjects(1).Range
.AutoFilter 2, ">=" & Int(Val([B2].Value2)), xlAnd, "<=" & Int(Val([D2].Value2)) + 1 - "1E-15"
.SpecialCells(xlCellTypeVisible).Copy
[F8].PasteSpecial xlPasteValues
[F8].PasteSpecial xlPasteFormats
.AutoFilter 2
End With
.Select
End With
[F8:H8].Interior.ColorIndex = 40 'orange
Application.EnableEvents = True
End Sub