Sajnos a makró automata lefutását nem tudtam megcsinálni. Nem értem teljesen hogy milyen formátumba kell beírni (amatőr vagyok). A munkalap kódlapjára beírtam úgy ahogy javasoltad, majd visszamentem a táblázatba és egy végtelen ciklusba kezdet állandóan futatta a macrót, csak ESC-vel tudtam leállítani. Most jelenleg billentyűkombinációhoz rendeltem az indítást, de nagyon szeretném ha ez automatikusan menne. Egyébként Delila makrója alapján írtam egy makrót ami igazodik az én táblázatomhoz és jól működik, egy dolog kivételével. Az usor  változó gondolom az utolsó sor lehet ami a tömb méretét, és a ciklus számát adja.

usor = Range("A3").SpecialCells(xlLastCell).Row – 1

Ha ezt a sort elmagyaráznád, hogy mi miért van beírva, megköszönném. Mitől függ az utolsó sor értéke, mivel tudom a tömb méretét behatárolni, de ha kell tudjam bővíteni. A táblázatom kb. 40 sorból áll, de menet közben többször kell beszúrni sorokat, ezért lenne jó az usor változó használata.