Szia?
Az Excel rosszul kezeli a Lastcell információt, érdemes kerülni a használatát.
Ha az eredmény tartomanyod az első sorban kezdodik mint most a D1-ben, akkor meg kell mérni, hogy a D1-tol kezdődő tartomanynak hány sora van, az leaz az utolsó sor, es oda kell ugratni a Lastcell helyett.
Most nem vagyok gépnél, mobilról irom, de valami ilyesmi kell:
Range(“D1”).Select
S=Activecell.Currentregion.Rows.Count
Range(„D”&S+1).Select
ActiveSheet.Paste
Hogy nem lép vissza a Munka4 B1 cellajaba, azt kétlem, ha letezik, próbáld lépésenként, F8-al futtatni
Imre