Ok, assuming your results are in Column C, I believe this should do it:
Public Sub shaihulud()
Dim strRemove As String
i = 2
Do Until i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, "C").Value = "InComplete" Then
strRemove = Cells(i, "A").Value
For j = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(j, "A").Value = strRemove Then
Rows(j).Delete
j = j - 1
End If
Next j
i = i - 1
End If
i = i + 1
Loop
End Sub
Your Batch column does NOT have to be sorted, but it does have to be in column A.
Bookmarks