delete anything in colum "A" with more than 4 letters

As the title suggests, I need a macro that will automatically look at colum A (except range A1) and then delete anything that is not alphabet letters i.e. a * or other charecters. Also need to delete if more than 4 letters long.

Can you help?

Thanks in advance