counting 9 first letter in cell , convert it to number to get root numbers ?

[jeccobeard]

is there a vba code to do this in excell so the formula is so much simpler. i am looking for Ending code ( cell f24)

I tried to get root numbers from the first 9 letters in a cell / name
formula:
1. first. change the letters into numbers according to the formula pytagoras
value : ajs = 1 bkt = 2 clu = 3 dmv = 4 enw = 5 fox = 6 gpy = 7 hqz = 8 ir = 9
2. letters are counted only the first 9 letters in cell B3 (not case sensitive) .. if the name is less than 9 letters like the name AHMAD
then we add the letters to 9 letters. we add up to 9 letters by converting them into single digits.
check ; example counting.xls
such as = AHMADAHMA
3. if the letter has become a number then add the first 9 letters of the name until we get 1 digit number / root number.
unless the result is 11, 13,, 14 then we dont reduce it into single digit at cell f24

4. the result will be displayed in cell F24