Estimados favor vuestra ayuda con esta macro

Estimados expertos tengo una macro que rescata información de varios archivos el cual contiene una sola hoja, estoy tratando de modificarla para que copie una hoja especifica de cada archivo pero no logro realizarlo les dejo la macro para que la revisen y agradezco su ayuda desde ya:

Sub proceso()
pase1 = MsgBox("Desea realizar el proceso???", vbYesNo, "atención")
If pase1 = vbNo Then Exit Sub
mio = ActiveWorkbook.Name
Set ml = ThisWorkbook
ChDir "D:\Siebel"
archi = Dir("*.xls*")
Do While archi <> ""
If archi = mio Then GoTo salto
Workbooks.Open archi
otro = ActiveWorkbook.Name
Range("a9:q" & Range("b65000").End(xlUp).Row).Copy
Workbooks(mio).Activate
Sheets(1).Select
Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.DisplayAlerts = False
Workbooks(otro).Close False
salto:
archi = Dir()
Loop
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder("D:\Siebel")
Set archivos = carpeta.Files
For Each fichero In archivos
x = x + 1
Next
x = x - 2
If x <> 0 Then
For Each fichero In archivos
Kill fichero
Next
Else
End If
End sub