Copy specific cells based on one word in the cell, to a different worksheet

Oh and to clarify, each cell I have has a few sentences. So if the word I look for shows up even once, I want all of the contents from that cell copied over to the new worksheet.

This code creates copies the searched word in a summary sheet, so you need to create a sheet called "Summary", otherwise you will get an error.

Sub x()
  
Dim rFind As Range, sFind As String, sAddr As String, ws As Worksheet

sFind = "identity"

For Each ws In Worksheets
    If ws.Name <> "Summary" Then
        With ws.UsedRange
            Set rFind = .Find(What:=sFind, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                sAddr = rFind.Address
                Do
                    rFind.EntireRow.Copy
                    Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
                     Set rFind = .FindNext(rFind)
                Loop While rFind.Address <> sAddr
                sAddr = ""
            End If
        End With
    End If
Next ws
     
End Sub

This. is. perfect. Thank you so much AB33! Saved me 60 hours of manual labor on this! This forum rocks.

You are welcome!