Copy range after find date paste value

Hi
I need find based A1 (criteria date), in range ("E1:XFD1") and paste below

Sub CopyRangeToFindedDate()
    Dim MyDateCrit As Date, cfind As Range
    Dim rngCrit As Range
    
    Set rngCrit = Range("C2:D100")
    
    With Worksheets("Plan1")
        MyDateCrit = .Range("A1").Value
        rngCrit.Copy
            Set cfind = .Range("E1:XFD1").Find(what:=CDate(MyDateCrit), lookat:=xlWhole)
            If Not cfind Is Nothing Then
                rngCrit.PasteSpecial xlPasteAll
                rngCrit.Offset(2, 0).PasteSpecial xlPasteValues
            End If
        End With
    Application.CutCopyMode = False
End Sub