HELP - Deleting rows in Excel with Macro

[benjamint]

I want to delete all the data in of a row if column B contains value that is below 80900 and/or starts with I.
Is there anyone who knows how to create a macro for this?

 

[VoG]

Try

Sub DelRow()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("B" & i)
        If IsNumeric(.Value) Then
            If .Value < 80900 Then Rows(i).Delete
        Else
            If Left(.Value, 1) = "I" Then Rows(i).Delete
        End If
    End With
Next i
End Sub

 

[Peter_SSs]

Another option (assuming heading in row 1)

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Del_Rws()<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <SPAN style="color:#00007F">With</SPAN> Range("B1", Range("B" & Rows.Count).End(xlUp))<br>        .AutoFilter Field:=1, Criteria1:="<80900", _<br>            Operator:=xlOr, Criteria2:="=I*"<br>        <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN><br>        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete<br>        <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0<br>        .AutoFilter<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[benjamint]

Try

Sub DelRow()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("B" & i)
        If IsNumeric(.Value) Then
            If .Value < 80900 Then Rows(i).Delete
        Else
            If Left(.Value, 1) = "I" Then Rows(i).Delete
        End If
    End With
Next i
End Sub

Thank you so much!!! This worked for me. This was exactly what I was looking for.