delete row based on criteria

You could use VBA for sure but on the off chance it's a one off you could equally just insert a helper calc, eg:

B1: 
=IF(EXACT(UPPER(LEFT(A1;3));LEFT(A1;3))*(MIN(FIND({1\2\3\4\5\6\7\8\9\0};A1&1234567890))=4);1;NA())
copied down

once the above is in place:

-- Highlight column B -> F5 -> Special -> Formulas: uncheck all but Errors -> OK
-- via Home Tab on Ribbon -> Delete Sheet Rows
-- finally delete column B to remove legacy formulae.