Automator: Move files into new subfolder based on file's name
I had a similar question and with the help of wch1zpink came up with this solution. In automator:


create a new workflow
add get selected finder items
add run applescript 
replace the script with this:

tell application "Finder"
    set selectedFiles to selection as alias list
    set containingFolder to container of item 1 of selectedFiles as alias
    repeat with i from 1 to count of selectedFiles
        set thisItem to item i of selectedFiles
        set fileName to (text items 1 thru -5) of (name of thisItem as text) as string
        move thisItem to (make new folder at containingFolder ¬
            with properties {name:fileName})
    end repeat
end tell