Splitting alpha from numeric

NorskGrandpa 

Considering your data this will be the best possible solution:

• Formula in cell F1:

=IF(ISNUMBER(E1),"",RIGHT(E1,1))

• Formula in cell G1:

=SUMPRODUCT(MID(0&E1, LARGE(INDEX(ISNUMBER(--MID(E1, ROW(INDIRECT("1:"&LEN(E1))), 1)) * ROW(INDIRECT("1:"&LEN(E1))), 0), ROW(INDIRECT("1:"&LEN(E1))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(E1)))/10)

N.B. Adjust cell references in the formula as needed.

I would like to suggest few UDFs (User Defined Functions), are VBA macro, which helps to extract Numbers as well Alphabets from any position regardless of their length. 

Function PullNumbers(strText As String)

Dim i As Integer, strDbl As String

For i = 1 To Len(strText)

If IsNumeric(Mid(strText, i, 1)) Then
strDbl = strDbl & Mid(strText, i, 1)
End If
Next i

PullNumbers = CDbl(strDbl)
End Function

Function PullLetters(strText As String)

Dim x As Integer, strTemp As String

For x = 1 To Len(strText)

If Not IsNumeric(Mid(strText, x, 1)) Then
strTemp = strTemp & Mid(strText, x, 1)
End If
Next x

PullLetters = strTemp
End Function

How it works:

1. To get VB editor either press Alt+F11 or Right click Sheet Tab & from menu hit View Code.
2.  Now form Menu hit Insert then Module.
3. Copy & Paste theses codes.
4. Save the WB as Macro Enables *.xlsm.
5. Write formula in cell F1:

=PullLetters(E1)

     6. Formula in cell G1:

=PullNumbers(E1)

You may adjust cell references in the formula as needed.