Move files within a folder to subfolder

I have been trying to make a macro that will move all files within a folder with a macro created subfolder into the subfolder. I'm very sure there has to be an easy way to do this.
Before State
Screenshot 2020-07-18 15.41.59

After State
Screenshot 2020-07-18 15.42.13

Try the For Each loop with the Folder Contents selection and the Move or Rename a File action: