[VBA]Sub OICTransfer()
drow = Cells(Rows.Count, "B").End(xlUp).Row + 1
For Each sh In Sheets
If sh.Name <> "ACCEPTED OIC's" Then
LR = sh.Cells(Rows.Count, "F").End(xlUp).Row
For j = 11 To LR
If sh.Cells(j, "F") = "OIC - ACCEPTED" Then
sh.Range("B" & j & ":E" & j).Copy Cells(drow, 2)
drow = drow + 1
End If
Next
End If
Next
End Sub[/VBA]