Is there a macro code that can find and delete numbers that are aligned at the right hand side.

for instance:

E1: The
E2: Man
E3: 3
E4: Ran

I need to find the number and delete the cell. Also the other cells should then shift up. Is this possible?