Sub jjj_consolidata()
    Dim sh As Worksheet
    Dim Rng As Range
    Dim rws As Range
    Dim rngResult As Range
    Dim lCnt As Long
    
    With ActiveWorkbook
        With .Sheets("Результат")
            Set rngResult = .Cells(.Rows.Count, 2).End(xlUp)
        End With ' .Sheets("Результат")
        
        lCnt = 0
        
        For Each sh In .Sheets
            If sh.Name Like "Данные*" Then
                Set Rng = sh.Cells.Find(What:="Крепежная фурнитура", After:=ActiveCell, LookIn:= _
                    xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
                    , MatchCase:=False, SearchFormat:=False)
                If Not Rng Is Nothing Then
                    Set Rng = Rng.CurrentRegion
                    If Rng.Rows.Count > 1 Then
                        Set Rng = Rng.Resize(Rng.Rows.Count - 1).Offset(1)
                        For Each rws In Rng.Rows
                            If rws.Cells(1, 1).Value <> 0 And Len(rws.Cells(1, 1).Value) > 0 Then
                                lCnt = lCnt + 1
                                rws.Copy rngResult.Offset(lCnt).Resize(, rws.Columns.Count)
                            End If
                        Next rws
                    End If
                End If
            End If
        Next sh
    End With ' ActiveWorkbook
End Sub