Start by creating a folder (in this example called "New folder" on the Desktop. Then open all the folders whose contents you want to move to New Folder. Then run this script (replacing 'xxxx' with the name of your Home Folder, of course):
tell application "Finder"
move every item of (every window whose visible is true) to folder "New folder" of folder "Desktop" of folder "xxxx" of folder "Users" of startup disk
end tell
(Note that there are only three lines here, the forum display may break line 2). You can of course call the new folder anything, and place it anywhere you like provided you amend the script to show the path.
This script will move the files, leaving the original folders empty. You may prefer to copy the files, so that they remain in position as well as appearing in the new folder, just as a safety precaution. Then you can delete the original folders if you wish.
tell application "Finder"
copy every item of (every window whose visible is true) to folder "New folder" of folder "Desktop" of folder "xxxx" of folder "Users" of startup disk
end tell