『順位の合計値を変えずに、重複順位を表示するには』（アツコ）

 1/2/3/4/5/6という順位結果を、→　1/2/3.5/3.5/5/6とするにはどのようにすればよいか教えてください。宜しくお願いします。

 もしよろしければこちらの方も助けてください。
最新データが1行目に挿入されるに伴い、1行目を含む6行に順位を付け、AA列の計算を行いたいのですが、現在は下記のようにすごくスペースを取ってしまいます。
また、この例えは6位までですが、20位かそれ以上の可能性もある上にデータ自体は4000行を超えるので、なるべく作業を少なくAA列を計算できる方法を
教えていただけると、本当に助かります。

 （＊A列は常に任意のセルから以下昇順、B列は以下6行中の大きい方からの順位）
　A　　B　　　             　　 A   C                    A  D ...
1　1　　5　=RANK(B1,B$1:B$6,0)　　　　　
2　2　　6　=RANK(B2,B$1:B$6,0)   1  =RANK(B2,B$2:B$7,0)  
3　3　　3　=RANK(B3,B$1:B$6,0)   2  =RANK(B3,B$2:B$7,0)  1  =RANK(B3,B$3:B$8,0)
4　4　　3　=RANK(B4,B$1:B$6,0)   3  =RANK(B4,B$2:B$7,0)  2        ・
5　5　　2　=RANK(B5,B$1:B$6,0)   4  =RANK(B5,B$2:B$7,0)  3        ・
6　6　　1　=RANK(B6,B$1:B$6,0)   5  =RANK(B6,B$2:B$7,0)  4        ・　
7   　                           6  =RANK(B7,B$2:B$7,0)  5      (続く）
8                                                        6

 次にAA列には、
1　=(1-B1)の2乗+(2-B2)の2乗+(3-B3)の2乗+(4-B4)の2乗+(5-B5)の2乗+(6-B6)の2乗
2  =(1-B2)の2乗+(2-B3)の2乗+(3-B4)の2乗+(4-B5)の2乗+(5-B6)の2乗+(6-B7)の2乗
3　続く
 （この計算のときに、重複順位では答えが変わってきてしまうので困っています）

すでにいくつもマクロを組んであるので、できましたら関数かその他の方法で解決できるよう教えていただければなおうれしいです。
宜しくお願いします。