하위폴더에있는 특정파일들을 특정폴더로 옮겨주고싶습니다

Sub PerformCopy()
'==================== call ================================
'MkDir "DestinationPath"

CopyFiles "C:\test" & "\", "D:\Test" & "\"

'==================== Copy sub ===========================
End Sub

Public Sub CopyFiles(ByVal strPath As String, ByVal strTarget As String)
Dim FSO As Object
Dim FileInFromFolder As Object
Dim FolderInFromFolder As Object
Dim Fdate As Long
Dim intSubFolderStartPos As Long
Dim strFolderName As String

Set FSO = CreateObject("scripting.filesystemobject")
'First loop through files
For Each FileInFromFolder In FSO.GetFolder(strPath).Files
Fdate = Int(FileInFromFolder.DateLastModified)
FileInFromFolder.Copy strTarget
Next

'Next loop throug folders
For Each FolderInFromFolder In FSO.GetFolder(strPath).SubFolders
For Each FileInFromFolder In FSO.GetFolder(FolderInFromFolder).Files
FileInFromFolder.Copy strTarget
Next
Next

End Sub

하위폴더에있는 특정폴더로 옮겨지기는 하는데 *.xls* 을 어디에 넣어줘야할지 모르겠습니다