Amigos, bom dia. Achei o fórum muito interessante e espero aprender bastante e trocar um pouquinho que sei

Bom, estou com um problemão, e gostaria da ajuda dos amigos.

Participo de um bolão com amigos de apostas de Fórmula 1, e, fazemos os cálculos baseando nas seguintes situações.

Poleposition = 7 pontos;

Acertando o 1° ganha 13 pontos
Acertando o 2° ganha 12 pontos
Acertando o 3° ganha 11 pontos
Acertando do 4° ao 10° ganha 10 pontos

Até aí tudo blza. O problema é que adicionamos pontos decrescentes caso não acertemos o piloto "na cabeça". Vamos supor a situação abaixo:

José fez a seguinte aposta:

1° Vettel
2° Alonso
3° Weber
4° Button
5° Hamilton
6° Massa.

Digamos que a ordem de chegada foi assim:

1° Vettel
2° Hamilton
3° Alonso
4° Weber
5° Massa
6° Button

A pontuação de José foi (na ordem dos pilotos de chagada): 13 + 7 + 9 + 9 + 9 +8 = 55 pts.

Pois bem supondo que a posição dos pilotos estejam na coluna "A" e os apostadores nas colunas (B em diante) e os pilotos nas linhas (1 em diante), pensei em automatizar da seguinte maneira:

=SE(An=Bn;10;An=Bn-1;9 e assim fazendo um looping até chegar ao Zero. Entratanto somente dessa maneira, dá erro ou retorna um valor errado.

Tenho dificuldades em VBA, alguém conhece alguma solução possível dentro das funções do excel?

Desde já agradeço pela ajuda.