Excel: auto številčenje in makro

Ne vem, če ravno spada v ta oddelek, ampak vseeno.

Imam en seznam pogodb, trenutno ima okoli 700 vpisov in se dnevno dodajajo novi vnosi. Zahtevano je avtomatsko številčenje pogodb (zaporedne številke, pa soriranje po različnih kriterijih). Uglavnem zadevo mam rešeno tako, da mam takole formulo za številčenje primer

=IF(B654<>""; MAX(A$2:A653)+1; "")

Se pravi nova zap. št. se zaračuna tako (če je desno od nje neprazno polje), da najde max št v stolpcu zap. št. in prišteje 1. Zdej imam pa problem, da ko se izvajajo sortiranja, se seveda te zap. št premešajo. Želel bi, da ko se enkrat (prvič) zračuna zap. št, da se nato takoj pretvori v vrednost (da ne ostane formula, ker potem se po vsakem sortu na novo preračunava - in so drugačne številke, ker za izračun zap. št jemlje max od zap. št, ki so nad trenutnim poljem...).

Drug problem pa je nekompatibilnost makrojev za sortiranje med officom 2000 in 2003. V starejši verziji za DataOption1 napiše

"Compile error: named argument not found "

Koda za sort:

Sub sort_by_zap_st()
    Range("A1:E604").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
End Sub

Hvala za pomoč!