Here you go Debs:
Sub RunMe()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "DataMaster" Then
Sheets(ws.Name).Select
For Each cell In Range("B12:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If cell.Value = "Completed on System" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "AC")).Copy
Sheets("DataMaster").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Sheets("DataMaster").Range("A" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteFormats
End If
Next cell
End If
Next ws
For Each ws In Worksheets
If ws.Name <> "DataMaster" Then
Sheets(ws.Name).Select
For Each cell In Range("B12:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If cell.Value = "Completed on System" Then
Range(Cells(cell.Row, "A"), Cells(cell.Row, "AC")).Delete
End If
Next cell
End If
Next ws
End Sub
It's not the shortest structure but it will do the job.
Best regards,
Trowa
Monday, Tuesday and Thursday are usually the days I'll respond. Bear this in mind when awaiting a reply.