Fil og copy på en linje 2

Ja så var jeg lidt for hurtigt igen, skrev lidt forkert i sidste spørgsmål

Denne lille stykke kode vil jeg gerne have ned til en eller 2 linej

Jeg vil gerne hente en talværdi i H3 og flyt den over i en anden fil

Windows("5 dg opg.xls").Activate
    Sheets("prod").Select
    Range("H3").Select
    Selection.Copy
    Windows("Kør 5 dage for opdatering Feb.xls").Activate
    Windows("Målepunkter grafer.xls").Activate
    Range("CU14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Så det var noget vrøvl jeg skrev i første spørgsmål