VBA/Macro - Delete rows if 2 conditions are met

Location Sub Locn Catalogue Order Number Supplier Name Order Date Requisition Created By Line No. Item Description Supplier Product Nbr UOM Qty Ordered Unit Price Total Price Delivery Point Account No.
BAS AST CAT ACH109 EDI SUPPLIER 02/08/2018 NICK 00003 Widget ABC ONLY 10 138.23 1382.3 ACH 1920120730114
BASS AST CAT ACH110 EDI SUPPLIER 22/08/2018 NICK 00004 Widget DEF ONLY 10 7.35 73.5 ACH 1940120130114
BAS AST CAT ACH110 EDI SUPPLIER 02/08/2018 NICK 00001 Widget GHI ONLY 6 45.58 273.48 ACH 1920120730125

Note:
1. I want to delete rows in which the Column Q number doesn't end with 30114
2. Then I want to delete the rows in which Column A has more than 3 letters
3. Need Macro to tackle both the problems


Thanks

Nikhil

Hi !

See my reply to cad1610

The conditions can be modified inside the loop to suit most/many/more than 1 requirement ( Universal - worked once - might work again )

How can I modify the two different conditions - one is last 5 digits need to be same and the other condition was that the letters in a cell should be less than equal to 3?

Thanks

If Right$(.Range("O" & i).Value, 5) <> 30114 And Len(.Range("A" & i).Value) > 3 Then

I get error message -

Run-time error '13:
Type mismatch

If Right$(.Range("O" & i).Value, 5) <> 30114 And Len(.Range("A" & i).Value) > 3 Then

I get error message -

Run-time error '13:
Type mismatch

Nope Doesn't work - Please see attached file for reference.

ThanksAttachment 590786

Sorry the macro is not working? What could be the reason?