VBAでファイル名変更、フォルダ作成、ファイル格納を作って欲しいです

＜書き方の例＞※修正してご利用ください。不要な部分や本メッセージは削除してからご送信ください。 【概要】 VBAで「ファイル名を取得、修正して一括変更、フォルダを一括作成、変更後のファイルを作成したフォルダへ格納」を作成をお願いしたいです。 書類を電子化した際のファイル名から一括リネームしフォルダを作成してその中に格納したいです。 【提案の際のお願い】 ご提案宜しくお願いいたします。