Startuj Data Sort na događaj Change odgovarajućeg worksheeta
Otprilike nešto ovako:
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1:D7").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub
Ukoliko je potrebno možeš prethodno proveriti da li je ćelija u opsegu koji se menja -da ne bi bespotrebno sortirao.
Detaljnije o reagovanjima na događaj vidi na praktikum.co.yu, sekcija VBA
Dva u dva ide jednom ako možeš da ga ućuškaš