Descriminar archivos de Excel en un directorio

[sjames]

Señores

Tengo la siguiente situacion espero que puedan ayudarme, por cierto, soy nuevo en el foro.

Tengo archivos en excel en una carpeta y necesito escribir un codigo que me permita hacer trabajar con archivos que estan en ka carpeta, si un archivo no se encuenrta en la carpeta el macro se detiene...

Otra interrogante es que los archivos tienen dos formatos distintos y la informacion que necesito extraer se encuentra en dos columnas diferentes y tienen un mismo encabezado, sin embargo, necesito direccionar que me identique cuando es uno y otro y que traiga la informacion que tiene el encabazado tal.

Este es el codigo para un solo archivo:

Application.ScreenUpdating = False
Range("D7:D225,F7:F225").Select
Selection.ClearContents
ChDir "E:\directorio "
Workbooks.Open Filename:="E:\DIRECTRIO\archivo que sera abierto"
Range("B747").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-744]C:R[-1]C)"
Range("B747").Select
Selection.Copy
Windows("archivo donde se llevara la informacion").Activate
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("archi que sera carrado").Activate
ActiveWindow.Close False