How to list dates defined by a data validation process

[snb]

Use autofilter
I chnaged the validation in G37 to: 20, 21 ,22, 23, 24 ... etc.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$37" Then
    Cells(37, 9).CurrentRegion.Offset(1).ClearContents

    With Cells(1).CurrentRegion
       .AutoFilter 2, ">" & Target - 1, xlAnd, "<" & Target + 1
       For Each it In .SpecialCells(12).Areas
         If it.Rows.Count = 3 Then it.Copy Cells(Rows.Count, 10).End(xlUp).Offset(1)
       Next
       .AutoFilter
    End With
  End If
End Sub