look to the data matched with date in specific cell

dear All
i would like to macro code that look to date in range starting from B8:end of sheet
as in attendance sheet with date in B3 then copy only data from column starting A9 that only have present value in this date
to sheet1
then copy data in B1,2,3,4,5,6,7 to sheet1 as in my attached file