Macro para abrir ficheros de excel 2ª parte

Hola parmijo! Gracias por la respuesta... Pero tengo otro problema, no consigo enlazar tu macro con la mía... Te pongo lo que tengo...
Sub ListaDir()
Sheets("Hoja1").Select
Range("A1").Select
Selection.End(xlDown).Select
x4 = ActiveCell.Row
x5 = x4 + 1
Range("A1").Select
For Z = 1 To x5
Sheets("Hoja1").Select
ruta = "TEXT;P:\Ppto 2009\Cta.explotación\Cecos\SUBIDA A SAP\Cecos a subir\" & ActiveCell.Value
Workbooks.Open Filename:= _
(Aquí debería empezar mi macro abriendo el archivo "ruta" pero no se como ponerlo)
Sheets("Ppto 2009").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1:D2").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("D1:F2")
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "Version"
[...]
Perdona mi ignorancia... Pero no he podido lograrlo...
Gracias!