Estimados que se debe modificar en esta macro

Expertos para solo copiar una hoja según esta maco que debo cambiar.-

Application.ScreenUpdating = False
Set ml = ThisWorkbook
ChDir "D:\"
archi = Dir("*.*")
Workbooks.Open archi
For Each h In Worksheets
h.Copy Before:=ml.Sheets(1)
Next