Okay! as I do not fully understand your request, we will take it step by step.
This code will loop 4 times, but we will change it to make dynamic once we know the issue.
If tests column B for fail, if it is true, it copies column B- column E and paste them starting in row 2 final sheet data.
Sub testing()
Application.ScreenUpdating = 0
Dim i&, LR&
With Sheets("sheet1")
LR = .Cells(.Rows.couunt, 2).End(xlUp).Row
For i = 1 To 4
If UCase(.Range("B" & i)) Like "*FAIL*" Then
.Range("B" & i).Resize(, 4).Copy
Sheets("Final").Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial xlValues
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Bookmarks