excel-makro-triedenie-range

takze-nahral som si makro v exceli:

Sub sort3()
    Range("B6:AI27").sort Key1:=Range("D6"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

...vzniklo tak, ze som zotriedil tabulku v bunkach B6-AI27 podla stlpca D(triedilo sa kliknutim na ikonu triedenia vzostupne).
Problem ale je, za ked pridam prvok do tabulky na koniec-na riadok 28, tak sa tento riadok už netriedi. nevie mi niekto poradit, ako mam toto: Range("B6:AI27") upravit, aby sa to menilo s počtom prvkov? Robim to vo VB....za rady dik.
Okrem ineho, v pomocnej premennej mam pocet prvkov, tak by sa to mozno dalo vyuzit, len neviem, ako to tam mam zmenit.