Sub ABC()
Dim sArr(), Res()
Dim i&, jD&, jC&, n
sArr = Sheet1.Range("A2", Sheet1.Range("A1000000").End(xlUp)).Value
ReDim Res(1 To UBound(sArr), 1 To 3)
For i = 1 To UBound(sArr)
n = Len(sArr(i, 1))
jD = 0: jC = 0
For j = 2 To n
If IsNumeric(Mid(sArr(i, 1), j, 1)) = False And jD = 0 Then jD = j
If IsNumeric(Mid(sArr(i, 1), j, 1)) And jD > 0 Then
jC = j: Exit For
End If
Next j
Res(i, 1) = Mid(sArr(i, 1), 1, jD - 1)
Res(i, 2) = Mid(sArr(i, 1), jD, jC - jD)
Res(i, 3) = Mid(sArr(i, 1), jC, n - jC + 1)
Next i
Sheet1.Range("B2:D2").Resize(UBound(Res)) = Res
End Sub