Error using Applescript to move subfolders

Question

I am trying to move subfolders of a user selected folder to another folder, via Applescript, but this fails with "*Finder got an error: Can't make {alias "Macintosh HD:Users:Me:Data:Folder1:","Example Subfolder"} into type point.* "
Obviously "Example Subfolder" is just a subfolder in the directory I select. I assume I'm doing something wrong in the set source_folder line? The code is as as follows:
set folderSelected to choose folder "Select a folder"
tell application "Finder"
set listOfFolders to every folder of folderSelected
end tell
repeat with aFolder in listOfFolders
set tempname to the name of aFolder
tell application "Finder"
display dialog "Folder named " & tempname
set source_folder to folderSelected & tempname
set destination_folder to folder "Macintosh HD:Users:Me:Data:Folder1"
display dialog "Destination folder is " & destination_folder
move folder source_folder to destination_folder
end tell
end repeat

Answer 1

My script has moved on a bit, and I'm using it for an alternative purpose now, but I've hit a different issue. The script below creates the folder named 1, but then the dialog box states the Destination folder is "M" - not sure why?
set folderSelected to choose folder "Select a folder"
tell application "Finder"
set folder_num to 1
set maxFolderSize to 680
set listOfFolders to every folder of folderSelected
make new folder at "Macintosh HD:Users:Darrell:Music" with properties {name:folder_num}
repeat with aFolder in listOfFolders
display dialog "Found a folder named " & (name of aFolder)
set destination_folder to folder folder_num of "Macintosh HD:Users:Darrell:Music"
display dialog "Destination folder is " & destination_folder
set Posix_DestinationPath to quoted form of POSIX path of (destination_folder as text)
set the_destinationscript to "du -ks " & Posix_DestinationPath & "| awk '{print $1}'"
set the_destinationsize to do shell script the_destinationscript
--used for debugging, so outcommented
(* display dialog "The destination folder is " & the_destinationsize / 1024 & " MB in size" *)
set Posix_SourcePath to quoted form of POSIX path of (aFolder as text)
set the_sourcescript to "du -ks " & Posix_SourcePath & "| awk '{print $1}'"
set the_sourcesize to do shell script the_sourcescript
--used for debugging, so outcommented
(* display dialog "The source folder is " & the_sourcesize / 1024 & " MB in size" *)
if (the_sourcesize + the_destinationsize) / 1024 > maxFolderSize then
display dialog "Total size is " & (the_sourcesize + the_destinationsize) / 1024
display dialog "Destination folder full"
set folder_num to folder_num + 1
make new folder at "Macintosh HD:Users:Darrell:Music" with properties {name:folder_num}
set destination_folder to folder folder_num of "Macintosh HD:Users:Darrell:Music"
move aFolder to destination_folder
else
move aFolder to destination_folder
end if
end repeat
end tell