Macro - Delete row based on criteria

[gomes123]

I would like a macro to delete all rows, based on the criteria: in column M (starting from cell M2 going down) who's values are less than 1000.

I tried doing something and this is what I got, but it's not working. Help would be appreciated.

Sub Delete_Rows()
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Rows.Count
If Selection.Cells(j, 13) <= 1000 Then
Rows(j + 1).EntireRow.Delete
End If
Next j
Next i
End Sub

After that, I would need to delete all rows, with criteria:
in column J (starting from cell J2 going down) who's values are less than 30.
in column C (starting from cell C2 going down) who's values are less than 0.3.

Is there a way to merge all 3 criterias into 1 macro?

Thanks and most appreciated

 

[James006]

Hi,

It seems to me you would have a smoother way of handling your "delete" objective ... with several criteria, using Filter ....

 

[James006]

You are welcome