Code achter een module zetten in bestand week 1.
Het bestand week 2 moet gesloten zijn voordat je de macro runt.
Wel even het pad aanpassen naar het juste in onderstaande code.
Sub jvr()
Application.ScreenUpdating = False
Set objWb = ThisWorkbook.Sheets(1)
c00 = "C:\Users\xxx\Downloads\WEEK2.xlsx"
With Workbooks.Open(c00).Sheets(1)
.Range("C3").Resize(, 3) = objWb.Range("C14").Resize(, 3).Value
.Range("E19") = objWb.Range("E24").Value
.Parent.Close 1
End With
End Sub