Estoy realizando una macro donde tengo que abrir un archivo copiar los datos y pasarlos a otro archivo, lo hago de la siguiente manera:

    If Dir(strNetwork) <> "" Then
        ChDir strNetwork                              ' Posicionarse en el directorio de red
        Workbooks.Open Filename:=strNetwork & strFile ' Abrir el archivo
        Windows(strFile).Activate                     ' Activar ventana del archivo
 
        Columns("A:BL").Copy
        SendKeys ("{Enter}")                          ' Evitar el mensaje de copia masiva de información
        Windows(strFile).Close
        Windows("Facturación FINAL.xls").Activate
        Sheets("PEDIDOS").Select
        Range("A1").Select
        ActiveSheet.Paste
    Else
        MsgBox "La [" & strNetwork & "] en red no disponible, presiona el botón cambiar para más información", vbCritical, "Error"
    End If

Se puede optimizar? Por ejemplo,

Ejecución lenta

Range("E1").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Ejecución rapida

Range("E1").Copy Range("D10")

Pero esto se hace dentro de un mismo archivo, alguna sugerencia?