Anlegen, Auswählen, Speichern

Sub Ordneranlegen()
Dim pfad As String
Dim strdatei1 As String
pfad = "C:\Users\Desktop\Januar"
MkDir pfad
End 

Sub
Dann soll über den File Picker, aus dem Verzeichnis Downloads, mehrere Files ausgewählt werden können. Die ausgewählten Files sollen in dem Ordner auf dem Desktop >(Januar) abgespeichert werden.

Sub Filepicker()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Bitte Report auswählen"
.InitialFileName = "C:\Users\Downloads"
.Filters.Add "Arbeitsmappen", "*.xls*", 1
If .Show = -1 Then
strdatei = .SelectedItems(1)
End If
Komme nicht mehr weiter :)
Vielen Dank im Voraus :)