Munka1 lapfülén a Kódhoz:

Sub Worksheet_Change(ByVal Target As Excel.Range)
    If (Target.Column = 1) Then
       nev = Target.Value
    End If
    Rendez (nev)
End Sub

A Munka2 lapon a B1-be írj valami címet. Ha nem a B-be akarod tenni az új adatot, csak aszerint akarsz rendezni, akkor annak az oszlopnak az 1. sorába adj címet.

Munka2-höz, de már nem a lapfülön, hanem Eszököz/Makró/Visual Basic (vagy ehelyett Alt+F11), bal oldalon kiválasztod a füzetedet. Beszúrás(Insert)/Modul.

Jobb oldalon kapsz egy üres oldalt, oda bemásolod ezt:

Sub Rendez(nev)
    Sheets("Munka2").Select
    usor = ActiveSheet.UsedRange.Rows.Count + 1
    Cells(usor, 2) = nev
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("Munka1").Select
End Sub

Ha másik (nem B) oszlopba íratsz, a 4. sorban a 2-t írd át az oszlop sorszámára.

Ha a művelet után nem a Munka1-en akarsz kikötni, hagyd el a Sheets("Munka1").Select sort.