Deleting Content of a Cell till the End of Right (Not Row)

Try this:

Sub DeleteColumns()
    Dim rFind       As Range
    Dim wks         As Worksheet

    For Each wks In ActiveWorkbook.Worksheets
        With wks
            Set rFind = .UsedRange.Find(What:="recvtiming", _
                                        LookIn:=xlValues, _
                                        LookAt:=xlWhole, _
                                        MatchCase:=False)
            Do Until rFind Is Nothing
                .Range(rFind, .Cells(rFind.Row, .Columns.Count)).ClearContents
                Set rFind = .UsedRange.FindNext(rFind)
            Loop
        End With
    Next wks
End Sub

Could you advice where it failed earlier.

This is an invalid construct:

FoundIt(1, LastCol - FoundIt.Column).ClearContents

I will find way to close this thread as solved.

For that and other useful information, see the forum rules.