Combine data in a single cell based on a condition

Sub CombineData()
Dim lRw As Long, rng As Range, findWhat As String, fndCell As Range, firstAdr As String
Dim sOut As String, ct As Long
lRw = Range("R" & Rows.Count).End(xlUp).Row
Set rng = Range("R1", "R" & lRw)

findWhat = "fail"

Set fndCell = rng.Find(findWhat, after:=Range("R" & lRw), LookIn:=xlFormulas, lookat:=xlWhole)
If Not fndCell Is Nothing Then
    ct = 1
    firstAdr = fndCell.Address
    sOut = sOut & fndCell.Offset(0, -1).Value & "|"
Else
    MsgBox "No cells found"
    Exit Sub
End If

Do
   Set fndCell = rng.FindNext(fndCell)
    If Not fndCell Is Nothing And fndCell.Address <> firstAdr Then
        ct = ct + 1
        sOut = sOut & fndCell.Offset(0, -1).Value & "|"
    Else
        Exit Do
    End If
Loop

Range("T20").Value = Right(sOut, Len(sOut) - 1)
MsgBox ct & " values placed in Cell T20."


End Sub