Sub RemoveRows()
Application.ScreenUpdating = False
Dim r As Long
For r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1
If Cells(r, 6) = 0 Or Cells(r, 14) = 0 _
Or Cells(r, 46) = False Or Cells(r, 47) = False _
Or Cells(r, 48) = "Sold" Or Cells(r, 26) = "staged" _
Then Cells(r, 1).EntireRow.Delete
Next r
End Sub