Is this macro deleting rows from the top down, or from the bottom up? How can you tell?
For r = ThisWorkbook.Sheets("New Data Add").UsedRange.Rows.Count To 1 Step -1
If Cells(r, "F") = "Status History" Then
ThisWorkbook.Sheets("New Data Add").Rows(r).EntireRow.Delete
End If
Next
For r = ThisWorkbook.Sheets("New Data Add").UsedRange.Rows.Count To 1 Step -1
If Cells(r, "F") = "Status History" Then
ThisWorkbook.Sheets("New Data Add").Rows(r).EntireRow.Delete
End If
Next