Hi,

I have the below macro which is working good. But the problem is once the data from sheet1 (if condition satisfies) is copied to the sheet Final then it is checking in second sheet for the condition.
If the condition is satisfied then it is copiying the data and pasting in sheet Final, but it is starting from the same row without verifing the old existing data.

Ex: If condition satisfies then,
it copies data from sheet1 and pasting in sheet final starting from row2. and then searches in sheet2 and again copiying data in sheet final row 2. which should not do.
I want the macro to paste data in the sheet final by giving a 2 row gap and then paste the data from sheet2 to final sheet.
All the sheets from 1 to 4 has merged columns and the column A is empty.

I have a loop of 4 to 5 sheets and the condition is mentioned in the macro.

Please help

Sub testing()
Dim NextRow As Range
For i = 1 To 4
If UCase(Sheets("Sheet" & i).Range("B10000").End(xlUp)) Like "*FAIL*" Then
Sheets("Sheet" & i).Rows("4:" & Sheets("Sheet" & i).Range("B10000").End(xlUp).Row).Copy
Sheets("Final").Range("A10000").End(xlUp).Offset(2).PasteSpecial
End If
Next i
End Sub