Crear listado general de pedidos con macros en excel

Necesito armar un listado general de los pedidos para una casa de impresión. La idea es la siguiente, por un lado están los formularios: #ordenes-pedidos, que serían distintos archivos excel con el nombre del cliente. Los ordenaría en carpetas por año, meses y días. Así es más fácil buscarlos.

Y por el otro, una matriz:#Listado general de pedidos, donde estarían todos los datos cargados de los formulario para tener un visión amplia de todos los pedidos.

Están armados los dos libros de excel: #Ordenes pedidos y #Listado general de pedidos. El primero contiene en la hoja 1 el formulario con los datos del cliente y su pedido.

Y en la hoja 2 la matriz con los datos enlazados del formulario. 

Busqué una macro que me consolidara (me fusione varios archivos en uno solo) los datos de las #Ordenes pedidos con la de #Listado general de pedidos. El problema es que me repite datos automáticamente a parte de los que necesito para cargar los datos de el #Listado general de pedidos. Como hacer que solo me rellene los datos que necesito.

Adjunto la macro que use:

Sub Consolidar()
Dim Archivos As Variant
Dim ArchivoMaestro As Workbook
Dim ArchivoActual As Workbook
Dim N As Integer
Dim ultimafila As String
Application.DisplayAlerts = False
Set ArchivoMaestro = ActiveWorkbook
Archivos = Application.GetOpenFilename(filefilter:="Excel Files,*.xlsx", _
MultiSelect:=True)
If IsArray(Archivos) Then
Application.ScreenUpdating = False
For N = LBound(Archivos) To UBound(Archivos)
Workbooks.Open Filename:=Archivos(N)
Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Copy
Set ArchivoActual = ActiveWorkbook
ArchivoMaestro.Activate
Sheets("Consolidación").Select
ActiveSheet.Paste Link:=True
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ArchivoActual.Close SaveChanges:=False
Next