Uden, at kende dit system, eller din makro i øvrigt, ville jeg nok gøre gøre det på nogenlunde denne måde:
Workbooks(CurrentFileNoPath).Sheets("TREND").Range("E18:E500").Value = Workbooks(SelectedFileNoPath).Sheets("Ark1").Range("E18:E500").Value |
En enkelt linje, der klarer det hele i et snuptag