Szia. Beírtam ezeket az utasításokat de valahogy nekem továbbra sem akar tökéletesen működni. Nem az a probléma, hogy én a Workbook_Sheetchange() esemlnyt használom a WorkSheets_change() esemény helyett? csak ezzel az a probléma, hogy minden egyes új munka lapnál Ctrl +c , Ctrl+v utasítást kell használni. Így viszont nem kéne mindig másolni, beilleszteni. Sőt van olyan is hogy nem számolja ki a ledolgozott időt. És el tudod mondni hogy ez az utasítás mit csinál pontosan? Range("E" & Rows.Count).End(xlUp).Row Nagyon köszönöm.