Option Explicit
Sub Test()
Dim sh As Excel.Worksheet
Dim rngFails As Excel.Range
Dim rngMatch As Excel.Range
Dim rngTarget As Excel.Range
With ThisWorkbook.Worksheets("Zusammenfassung").Range("A5")
.Parent.UsedRange.Clear
Set rngTarget = .Cells(1)
End With
For Each sh In ThisWorkbook.Worksheets
Set rngMatch = sh.Columns("A").Find("BOARDRESULT", , xlValues, xlWhole, xlByColumns, xlNext, False)
Set rngFails = Nothing
If Not rngMatch Is Nothing Then
If rngMatch.Offset(0, 1).Value = "FAIL" Then
Set rngFails = sh.Range("A4", rngMatch.Offset(-2))
End If
End If
If Not rngFails Is Nothing Then
rngTarget.Font.Bold = True
rngTarget.Value = sh.Name
Call rngFails.EntireRow.Copy(Destination:=rngTarget.Offset(1))
Set rngTarget = rngTarget.Offset(1 + rngFails.Rows.Count)
End If
Next
End Sub