Macro copiar y pegar

Aquí tienes una forma de hacerlo. Hay dos procedimientos o funciones auxiliares (una de ellas no es mia) :

Function GetFilenameFromPath(ByVal strPath As String) As String
'sacado de la red
' Returns the rightmost characters of a string upto but not including the rightmost '\'
' e.g. 'c:\winnt\win.ini' returns 'win.ini'
 If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
 GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
 End If
End Function
Sub CopiaRangoALibro(rini As String, libro As String, hoja As String, rfin As String)
'Copia un rango de la hoja actual, a otro libro, en la hoja y a partir de la celda indicados
'dfin debe ser una celda tipo "A1", "J54" ...
ActiveSheet.Range(rini).Copy
Workbooks.Open Filename:=libro
Worksheets(hoja).Activate
Range(rfin).Select
ActiveSheet.Paste
Workbooks(GetFilenameFromPath(libro)).Close SaveChanges:=True
End Sub

Y una ejemplo de la macro que tienes que construir sería el siguiente:

Sub PruebaCopia()
Dim s as String
s = "C:\userdata\miusuario\Desktop\Libro_ejemplo.xlsx"
Call CopiaRangoALibro("e8:g14", s, "Sheet2", "B2")
End Sub

En este ejemplo el rango E8:G14 de libro y hoja activos se copia al "Libro_ejemplo.xlsx en la hoja2 a partir de la celda B2 y después se cierra el libro. Tendrás que adaptarlo a tus necesidades o gustos.

Para abrir un libro llamado "Pedido":

Workbooks.Open Filename:="C:\...\Pedido.xls"

Para seleccionar una hoja llamada "Lunes":

Sheets("Lunes").Select

Para definir ancho de columna en 8:

Columns("B").Select

Selection.ColumnWidth = 8

Para guardar el libro:

ActiveWorkbook. Save