Copy Data Based on Date Range

Hi Everybody,

I have been struggling to figure this out, I am hoping you guys can help me figure this out.
I have attached a spreadsheet. I need to copy data from the influent tab and paste it under the proper date in the summary tab.

I have recorded a macro doing this (see below), only now I need it to automatically go thorugh all rows in the influent tab and automatically find the correct date in the summary tab to paste the row.


Thanks for your help.

Sub Copy()
'
' Copy Macro
'

'
    Rows("2:2").Select
    Selection.Copy
    Sheets("Summary").Select
    ActiveWindow.SmallScroll Down:=81
    Rows("103:103").Select
    ActiveSheet.Paste
    Range("E111").Select
End Sub

Book1.xlsx