Ayuda con codigo

Me podrian ayudar por favor ya que tengo que copiar dos archivos, pero
cuando no esta el primer archivo me manda error y no me hace nada, ya que
en ocasiones me generan 1 o 2 archivos, si alguien me podria ayudar a
corregir este error se lo agradeceria muchisimo.

Sub TRANSF_SIEFORE_I()
If Dir("Y:\INVERSIONES\Archivos del Sistema\OPERACION SOLUCIONES\PROFUT1\"
& "MO" & Format(Date, "ddmmyy") & ".txt") <> "" Then MsgBox "LOS TRANFERS
DE LA SIEFORE I DEL DIA DE HOY ESTÁN LISTOS"
Dim Archivo As String, Del_Dir_1 As String, Del_Dir_2 As String, Al_Dir
As String, Sig As Integer
Del_Dir_1 = "Y:\INVERSIONES\Archivos del Sistema\OPERACION
SOLUCIONES\PROFUT1\"
Al_Dir = "C:\SIEF01L\Transfer\"
Nom = Array("MO", "MD")
Ext = ".TXT"
Archivo = Format(Date, "ddmmyy")
If Archivo = "" Then Exit Sub
For Sig = 0 To 1
FileCopy Del_Dir_1 & Nom(Sig) & Archivo & Ext, Al_Dir & Nom(Sig) &
Archivo & Ext
Next

Windows("MACRO TRANSFER SI.xls").Activate
ActiveWindow.Close


End Sub

Saludos.