Поиск значения в ячейке

Sub tt()
    Dim c As Range, r1 As Range, r2 As Range
    Application.ScreenUpdating = False
    For Each c In [a1].CurrentRegion
        If r1 Is Nothing Then
            If InStr(c.Value, "/16") Then Set r1 = c
        End If
 
        If Not r1 Is Nothing Then
            If InStr(c.Value, "Charts affected ") Or InStr(c.Value, "Chart affected ") Then
                Set r2 = c
                Range(r1, r2.Offset(, 10)).Select: PASTE
                Set r1 = Nothing
                Set r2 = Nothing
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub

For Each c In [a1].CurrentRegion.Columns(1).Cells

For Each c In Sheets(2).UsedRange.Columns(1).Cells

    Set iSource = [AG2:BE14]
    s = " " & Selection(1).Text & " "
    For Each col In iSource.Columns
        If x = 0 Then
            For Each wrd In col.Cells
                If InStr(s, " " & wrd.Text & " ") Then
                    x = wrd.Column - 30: Exit For
                End If
            Next
        End If
    Next

    Set iSource = [AG2:BE14]
    s = " " & Selection(1).Text & " "
    For Each wrd In iSource
        If InStr(s, " " & wrd.Text & " ") Then x = wrd.Column - 30: Exit For
    Next