Ahorro de código en macro para enviar datos de un libro a otros

 Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate
    Sheets(13). Range("A8:f78"). Copy
    Windows("C2020-0138_Carga_Horas (1)2.xls").Activate
    Sheets("Personal"). Range("A8:f78"). PasteSpecial xlPasteValues
    Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate
    Sheets(13). Range("F2"). Copy
    Windows("C2020-0138_Carga_Horas (1)2.xls").Activate
    Sheets("Personal"). Range("G3"). PasteSpecial xlPasteValues
    Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate
    Sheets(13). Range("I2"). Copy
    Windows("C2020-0138_Carga_Horas (1)2.xls").Activate
    Sheets("Personal"). Range("H3"). PasteSpecial xlPasteValues
    Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate

Buenos días

Podéis indicarme la sentencia para ahorrar código y que no me parpadee la pantalla mientras se ejecuta.