Hi,

supposed your dates are in sheet1 A2:A1000

If in Sheet2 in A1 start date, in B1 - end date, a possible approach could be in copy C1 ( to be confirmed with control+shift+enter ) and down and across

=IFERROR(INDEX(Sheet1!A$2:A$1000,SMALL(IF(Sheet1!$A$2:$A$1000>=$A$1,IF(Sheet1!$A$2:$A$1000<=$B$1,ROW($A$2:$A$1000)-1)),ROWS($A$1:$A1))),"")

I cannot help you with VBA.


Regards