Remove last character from cell if it is text only

[alombia]

Hello Guys,

I need help with vba to remove the last character from a cell if that last character is non-numeric text.
Eg. 7a would become 7 and KJUA9a would become KJUA9 etc.

Thanks in advance.

 

[footoo]

Dim c As Range: Set c = [A1]
If Not IsNumeric(Right(c, 1)) Then c = Left(c, Len(c) - 1)