I am just starting with VBA so I don't know much. I am using the code below to combine excel files into one. The files are labeled as "wk of 1-02-2012", wk of "1-09-2017" etc for 52 weeks. My problem is the sheets are in descending order and I need them starting in Jan not Dec. Can anyone help with this? Thank you!

Sub ConslidateWorkbooks()
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
FolderPath = Environ("userprofile") & "\Desktop\Test\"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub