Ha az utolsó helyett a Z oszlopba teszed a képleteket, azzal szerintem semmit nem nyersz.

A képlet módositása úgy, hogy a Replace feleslegessé váljon, járható útnak tűnik. Ki kell próbálni, hogy működik-e. Azért én nem várnék tőle túl sokat. A Replace elég gyors dolog egy 60-80 soros táblázatnál.

A futtatás előtti aktiv cellát meg úgy őrzöd meg, hogy:

Dim Talon As Range

Set Talon = Activecell

 

aztán jön a program többi része

a végén pedig

Range("A1").Activate

helyett

Talon.Activate

kell.

 

A vessző és a pontosvessző körüli kavarodás pedig azért van, mert a VBA részt nem magyaritották az Excel többi összetevőjével. (Hála Istennek :o))