Sub transfer_data()
    Dim x As Workbook
    Dim y As Workbook

    Windows("KK U8 till joel.xlsm").Activate
    Sheets("Tom mall").Select
    Range("A1:S300").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.PasteSpecial
    ActiveSheet.Name = "Target"

    Set y = ActiveWorkbook

    Windows("MM u8 Till joel.xlsm").Activate
    Sheets("Rapport").Select
    Range("A1:S300").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.PasteSpecial
    ActiveSheet.Name = "New"

    Set x = ActiveWorkbook

    vals = x.Sheets("Rapport").Range("E51:E66").Value
    y.Sheets("Target").Range("B7:B22").Value = vals

    vals = x.Sheets("Rapport").Range("E69:E84").Value
    y.Sheets("Target").Range("B26:B41").Value = vals

    vals = x.Sheets("Rapport").Range("J69:J84").Value
    y.Sheets("Target").Range("F26:F41").Value = vals

    vals = x.Sheets("Rapport").Range("J51:J66").Value
    y.Sheets("Target").Range("F7:F22").Value = vals

    szToday = Format(Date, "DD-MM-YYYY")
    y.Sheets("Target").Name = szToday

    szToday = Format(Date, "DD-MM-YYYY")
    x.Sheets("New").Name = szToday


End Sub