Help with VBA Code

[fari1]

hi, here's the code i've, that finds a text "consolidated" in sheet 2 and if the row's LEN in which the word was found is less than 50 then it copies that row and paste it in Column B sheet3,there's more than one text strings in the sheet2, so the output in sheet3 contains many rows, which are random. i want the next output in sheet3 at that row of column A, which is after last used cell in any of columns (as a result of the earlier output). but this part of the code is not working somehow.pl help

Sub TEXTpuzzle()
    
    Static wsSrc As Worksheet: Set wsSrc = ActiveWorkbook.Sheets("Sheet2")
    Static wsDst As Worksheet: Set wsDst = ActiveWorkbook.Sheets("Sheet3")
    
    Static StartAddress As String
    Dim rngFnd As Range
    Dim rngAll As Range
    Dim allfound As Boolean
    
    Set rngFnd = wsSrc.UsedRange.Find("consolidated")
    If Not rngFnd Is Nothing Then StartAddress = rngFnd.Address
    
    While Not rngFnd Is Nothing And allfound = False
        If RowLen(wsSrc, rngFnd) < 50 And rngAll Is Nothing Then Set rngAll = rngFnd
        Set rngFnd = wsSrc.UsedRange.Find("consolidated", rngFnd)
        If RowLen(wsSrc, rngFnd) < 50 Then
            If rngAll Is Nothing Then Set rngAll = rngFnd
            If Intersect(rngAll, rngFnd) Is Nothing _
            And Intersect(rngAll.EntireRow, rngFnd) Is Nothing _
            Then Set rngAll = Union(rngAll, rngFnd)
        End If
        If rngFnd.Address = StartAddress Then allfound = True
    Wend
If Not rngAll Is Nothing Then Intersect(rngAll.EntireRow, rngAll.Worksheet.Range("A:Z")).Copy wsDst.Range("B" & wsDst.UsedRange.Offset(, 1).Find(what:="*", after:=wsDst.[C1], searchdirection:=xlPrevious).Row + 1).Value
wsDst.Range("A" & wsDst.UsedRange.Offset(, 1).Find(what:="*", after:=wsDst.[B1], searchdirection:=xlPrevious).Row + 1).Value = wsSrc.Range("A1").Value
End Sub
Function RowLen(ws As Worksheet, rng As Range) As Long
    
    Dim c As Range
    For Each c In Intersect(rng.EntireRow, ws.UsedRange)
        RowLen = RowLen + Len(c.Text)
    Next c
    
End Function

 

[fari1]

the code's part of last used range is not working

 

[fari1]

anyone