Need help to delete rows based on cell content

**iturnrocks** · 04-17-2008, 11:15 AM

I need a macro that will delete rows when column A doesnt contain certain things.
Here is a sample

Distribution	Center	6125C	
Purchase	Order	Number:	1202053395
DATE,	PLEASE	*SHIP
==============================		
Line	#	Buyer
1	950694	82687864236
3	950715	82687862003
8	969736	82687112108
Summary	Level	Allowances:
Total	Cubic	Feet:
Total	Weight:	n/a
Total	Line	Items:

I want all rows deleted unless column A contains "Distribution", "Purchase", or a Number 1-9

Result:

Distribution	Center	6125C	
Purchase	Order	Number:	1202053395
1	950694	82687864236
3	950715	82687862003
8	969736	82687112108

Thank you

**BigBas** · 04-17-2008, 11:39 AM

Try this code and report back:

Sub Delete_Rows()
    Dim LastRow As Long
    
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Application.ScreenUpdating = False
    For i = LastRow To 2 Step -1
        If Cells(i, 1) < 1 Or Cells(i, 1) > 9 And UCase(Cells(i, 1)) <> "DISTRIBUTION" And UCase(Cells(i, 1)) <> "PURCHASE" Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub