deleting cells

[lijia137]

I have a workbook that i need to delete some cells automatically after
sorting. The rule is to use one specific column (say column O) as
reference, i.e. values<100 in this column, together with things in the
same rows should be deleted, basically it's to delete a range of data?
how should i write it? Thanks a ton!

 

[Nigel]

One way.... Scan the entire rows to perform test from bottom to top.,
testing each column value and deleting entire row. Something like

Sub RemRows()
Dim xr As Long
With ActiveSheet
For xr = 100 To 1 Step -1
If .Cells(xr, "O") < 100 Then Rows(xr).EntireRow.Delete
Next xr
End With

End Sub