VBA:lla aakkosellinen sorttaus riveittäin

Oma alkeellinen VBA osaaminen alkoi tökkimään. Olisiko täältä jeesiä?

Sheet 1:llä on automaattinen aakkosellinen sorttaus:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("A7").Sort Key1:=Range("A6"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

Tällä rivit järjestyvät hienosti kuten pitää sarakkeen A mukaan.

Sheet2:
Tuon osittain samaa dataa viittaamalla suoraan Sheet1:n sisältöön ja osittain parilla kaavalla. Sheet2:n rivit täytyisi saada automaattijärjestykseen samaan järjestykseen kuin ykkösessä sitä mukaan kun ykköselle teen lisää rivejä. Sinällään se järjestyykin kaavojen puolesta, mutta rivit alkavat heittää kun sheet2:lle täyttää tietoja, esimerkiksi sarakkeisiin K:BE. Koko alue jonka rivit haluan järjestää on B21:BE278.