You should be able to take the drudgery out of the task by using a simple macro to move the folders from one location to another using a simple loop (or loops if more than one pair of locations) e.g. to move all the folders from subfolder1 of Inbox to subfolder2 of inbox, the following will work. You just have to set the source and target folder locations appropriately.
Code:
Sub MoveFolders()
'Graham Mayor - http://www.gmayor.com - Last updated - 21 Aug 2017
Dim olSourceFolder As Folder
Dim olTargetFolder As Folder
Dim lngFldr As Long
Set olSourceFolder = Session.GetDefaultFolder(olFolderInbox).folders("Subfoldername1")
Set olTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Subfoldername2")
For lngFldr = olSourceFolder.folders.Count To 1 Step -1
olSourceFolder.folders(lngFldr).MoveTo olTargetFolder
Next lngFldr
lbl_Exit:
Set olSourceFolder = Nothing
Set olTargetFolder = Nothing
Exit Sub
End Sub