Pas sûr d'avoir bien compris ton problème... Le mieux serait de mettre sur le forum un tout petit fichier, avec données de départ et le résultat attendu...
Dim c As Range
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Len(c.Value) = 1 Then c.Offset(0, 1).IndentLevel = Asc(UCase(c.Value)) - 65
Next c