Don't know if you can edit this one to suit your needs
when you say that you want your input cells to be clear afterwards, you will
need edit any cell addresses as needed.
This macro will look  in cell E36, match it in column C  (C493:C979)
then copy row 488 ( D488:BE488) next to what it has found ( usually a date,
if you leave E36 blank, it will select the next blank cell in Column C
between row 493 and 979.

U27:U31 is column that is cleared after input is pasted --- you WILL need to
edit these cells.

Sub SendData()
Dim myFind As Integer
Dim rng As Range
Dim rngToSearch As Range
Dim rngFound    As Range
Set wks = ActiveSheet
Set rngToSearch = Worksheets("NameOfWorksheet").Range("C493:C979")
Set rngFound = rngToSearch.Find(What:=wks.Range("$E$36"), _
        LookAt:=xlPart, MatchCase:=False)
       
If Not rngFound Is Nothing Then
Worksheets("WorksheetToCopyInto").Range("D488:BE488").Copy
  rngFound.Offset(0, 1).PasteSpecial xlValues
 
Else
 MsgBox myFind & " was not found"
End If
Range("U27:U31").Select
   Selection.ClearContents
   ActiveWorkbook.Save
   ActiveWorkbook.Close
End Sub

HTH