Copy/paste range with date lookup

try this macro, next change C1 and again try

Sub test()
Dim ddate As Date, r As Range, cfind As Range
ddate = CDate(Range("C1"))
Set cfind = Cells.Find(what:=ddate, lookat:=xlWhole, after:=Range("C1"))
Set r = Range(Range("c4"), Range("c4").End(xlDown))
r.Copy cfind.Offset(1, 0)
MsgBox "macro done"
End Sub