Como hacer un bucle para que una macro abra varios archivos

Tengo la siguiente Macro donde desde un archivo "Consolidado de pedidos" desde donde abre un archivo de la carpeta "Pedidos Diarios", copia datos de éste y los pega en el siguiente renglón disponible de Consolidado de pedidos.

Hasta aquí todo funciona perfectamente.

Solicito ayuda para crear un bucle donde abra el primer archivo de la carpeta haga lo que tengo en la Macro y luego abra el siguiente, luego el siguiente hasta que termine con todos los que hay en la carpeta.

Aquí la Macro:

Sub abrirarchivos()
Dim reng, rengl, renglo
Range("A1").Select
Jorge = Range(Selection, Selection.End(xlDown)).Rows.Count
Msg = MsgBox("Enrique, quieres borrar el contenido de èste archivo?", vbYesNo, "Consolidado de pedidos")
If Msg <> 6 Then
Exit Sub
End If
Range("A2", "O" & Jorge & "").ClearContents
Workbooks.Open Filename:= _
"\\C:\Users\User\Desktop\Pedidos Diarios\PedTda1.xls"
reng = Range("A1").End(xlDown).Row
rengl = reng + 2
renglo = reng + 3
On Error Resume Next
If Range("A" & rengl & "") = "" Then
Range("A8").Select
Range("A8", "O" & reng & "").Copy
Windows("Consolidado de pedidos.xls").Activate
con = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & con & "").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows("PedTda1.xls").Activate
Workbook.Application.CutCopyMode = False
ActiveWorkbook.Close
Windows("Consolidado de pedidos").Activate
ActiveWorkbook.Save
Workbook.Application.CutCopyMode = False
End If
Application.CutCopyMode = False
If Range("A" & rengl & "") <> "" Then
Range("A" & rengl & "").Select
Jorges = Range(Selection, Selection.End(xlDown)).Rows.Count - 1
renglon = rengl + 1
renglone = renglon + Jorges - 1
Range("A" & renglon & "", "O" & renglone & "").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidado de pedidos.xls").Activate
cons = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & cons & "").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("PedTda1.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Consolidado de pedidos").Activate
Application.CutCopyMode = False
ActiveWorkbook.Save
End If

End Sub