Mivel számadatok is szerepelnek a nevek mellett, a B, E, ... W oszlopok bevitelét figyeltetném.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sor As Integer, oszlop As Integer, usor As Integer
    Application.EnableEvents = False
    sor = Target.Row: oszlop = Target.Column
    If Target.Row > 7 Then
        If oszlop = 2 Or oszlop = 5 Or oszlop = 8 Or oszlop = 11 Or oszlop = 14 _
            Or oszlop = 17 Or oszlop = 20 Or oszlop = 23 Then
            usor = ActiveCell.SpecialCells(xlLastCell).Row
            Range(Cells(8, oszlop - 1), Cells(usor, oszlop)).Select
    
            Selection.Sort Key1:=Cells(sor, oszlop - 1), Order1:=xlAscending, Header:= _
                xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortTextAsNumbers
            Range(Target.Address).Select
        End If
    End If
    Application.EnableEvents = True
End Sub

Nem írtad, melyik verziójú Excelt használod, a makró a 2003-asnak megfelelő rendezést tartalmazza. Azt sem írtad, hogy az A:B, D:E, stb. párosok közötti oszlopokban vannak-e adatok. Ez a makró a párban lévő oszlopok adatait rendezi együtt.