Automatisk opdatering af kolonneværdier

Der skal nok noget VBA kodning til her.

i mit ark skal der automatisk sorteres i en række tabeller, og jeg kan kun få den til at flytte værdien i den ene tabel, men ikke få navn og andre skriftrækker til at følge med.

eks:
B      -  C      -  D  - E
navn - alder - klub - tid
Det er udfra talværdi i E, rækken der skal sorteres, og den skal have tekst fra de andre kolonner med.
har prøvet med følgende:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E7:E57")) Is Nothing Then
        Range("E7:E57").Sort Key1:=Range("E7"), Order1:=xlAscending, Header:= _
          xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
          DataOption1:=xlSortNormal
    End If
End Sub


her flytter den E7 automatisk, men B7;D7 følger ikke med. desuden har jeg ikke de andre områder med.
hvert område skal have sin egen rangering.

den skal kunne gøre dette for områderne:
B7;E57
G7;j57
L7;057
Q7;T57
V7;Y57
AA7;AD57

og det skal være ascending værdi fra kollonen yderst til højre, altså E,J,O,Y,AD