needing macro to delete cells that only contain text

I have attempted to find answers through other boards/forums and although I am close, there is nothing directly pertaining to what I am after. I have a extensive list of auto parts that I need to trim down to the part number only. The list unfortunately contains the make, model, and plenty of other useless information as well. To make things even more difficult some of the part numbers contain letters as well. I had found some VBA code that will automatically remove all alpha characters, but it applies itself to all cells. To start I did a text to columns with a delimiter on spaces so that each grouping would have it's own separate cell. The VBA code used is as follows

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. Also next time please consider using indentation to show program structure, as shown. --6StringJazzer

Please Login or Register  to view this content.

My theory is that I should be able to have a IF statement that precedes the code basically saying if the cell contains a number skip it else run the code, but this is where my programming skill starts lacking.

Also I have included a small sample of the file I am trying to edit.

Try:

Please Login or Register  to view this content.