Szia!
A leírásodból úgy tűnik, hogy nem 2 füzetről, hanem 1 füzetben lévő 2 lapról van szó.
Nem tenném Change eseménybe, mert akkor minden beírásnál lefut a laphoz rendelt makró. Inkább egy modulba másolnám a lenti makrót, amit pl. úgy indíthatsz, hogy az F8 funkcióbillentyű hatására megjelenő ablakban kiválasztod a Masolas nevűt, vagy kiteszel a Munka1 lapra egy gombot, amihez hozzá rendeled (jobb klikk) a makrót.
Bemásolás: Alt+F11-gyel belépsz a VB szerkesztőbe. Bal oldalon kiválasztod a füzetedet, majd Insert menü, Module. A jobb oldalon kapott nagy fehér felületre másolsz.
Sub Masolas()
Dim usor As Integer, sorIde As Long
sorIde = Sheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row
If sorIde > 1 Then sorIde = sorIde + 1
Sheets("Munka1").Select
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("Munka2").Range("A" & sorIde)
End Sub
Indítás előtt írd át a Munka1 és Munka2 lapneveket minden előfordulásuknál a saját lapjaid nevére. Ez a makró a Munka1-ről másol a Munka2-re.
Üdv,
Kati
.
