Az előbbi makró az első oszlop változását figyeli, és azt rendezi.

Az első oszlophoz ezeket kell átírni:

  If (Target.Column=2) Then

  Selection.Sort Key2:=Range("B2"), ... stb