VBA code to paste data to a row with today's date in column A in another sheet

[SamT]

Set RowFound = Sheets("CASH FAILS MIS").Cells.Find(CDate(selectedDate)).Row


Range("B" & RowFound).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Alternately
Cells(RowFouund, "B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False