I use this code to transfer my data from one workbook toanother:
Windows("IK-periode26.xlsm").Activate
Sheets("Result").Select
Range("B6:G6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Arbejdsfil v2 - IKS(TESTER).xlsm").Activate
Sheets("Result").Select...