VBA Macro to create excel list?

I have 4 columns of data on sheet2 (A, B, C & D). The D column consist of different days of the week (Mon - Sun). I need a macro that will find the entries in the D column matching the current day and copy data from all 4 columns of the corresponding row to the corresponding columns in Sheet1 beginning on the first row. Thanks Guys!