If cell contains blank, skip cell (Run Time Error 13)

So i have been working on a macro sorting peoples names on a list and also gathering information from it. The problem is that i get error 13 - mismatch data. The data im searching is all txt no numbers and im trying to not use any cells containing "Jr" or roman numerals.

Please Login or Register  to view this content.

Thanks for your help,
Frank

This is a better syntax for checking one cell for that many different values:

Please Login or Register  to view this content.

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.