Looking for help with a macro to delete a row

[jnewton34120]

I am looking to see if anyone can help me with a macro. I am looking to have one that looks at column H and if the code in the column starts with a 5 or 6 then it should keep it and if there is anything else in the column the entire row should be deleted. I don't currently know the number of rows that will have data but I can get that information if needed.

 

[Joe4]

Try this:

Sub MyDeleteRows()

    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Loop through all rows in column H with data backwards, starting at bottom
    For r = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
'       Delete row if cell starts with a 5 or 6
        If Left(Cells(r, "H"), 1) = "5" Or Left(Cells(r, "H"), 1) = "6" Then Rows(r).Delete
    Next r
        
    Application.ScreenUpdating = True
    
End Sub

 

[jnewton34120]

I was looking for it to not delete the rows starting in 5 or 6 is that something that is possible please? It wouldn't matter what it is a long as it doesn't start with a 5 or 6 it can be deleted.

 

[Joe4]

Sorry, misread that. Simple change:

Sub MyDeleteRows()

    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Loop through all rows in column H with data backwards, starting at bottom
    For r = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
'       Delete row if cell starts with a 5 or 6
        If Left(Cells(r, "H"), 1) <> "5" And Left(Cells(r, "H"), 1) <> "6" Then Rows(r).Delete
    Next r
        
    Application.ScreenUpdating = True
    
End Sub

 

[jnewton34120]

Thank you!!!! You are awesome!

 

[Joe4]

You are welcome.
Glad I was able to help!