Paste Range to Matching Date

Hi all, I am trying to make a ButtonClick cut and paste a range (A8:E8) with the date in cell A8, to the matching date in column F. Any help with this would be so fantastic.

Hi,
try this

Public Sub a()
    With ActiveSheet
        Set myrange = .Range("F:F").Find(Range("A8"))
        .Range("A8:E8").Cut
        myrange.Select
        .Paste
    End With
End Sub

So that worked to get the range into the right row (so, awesome thank you!) but it's making a #REF! Error in column F (there's an =F2+1, =F3+1, etc. formula in it to F142).