Excel VBAでPower Queryを経由して、同一シート内にあるすべてのテーブルを元に、同一シートに新規テーブルを作成するマクロを、VBAとM言語を用いて、以下の条件に従って作ってください。

#条件
1. M言語はArray関数でバリアント型変数に代入して、その変数をJoin関数でVBCrLfを区切り文字にして結合し、その結合した変数を引数Formulaに代入する
2. M言語は1行ではなく複数行記述とする
3. 全テーブルの「社員」列と「番号」列だけを読み込んで縦結合する
4. 新規指定テーブルの3列目のヘッダーを「元テーブル名」とする。3列目のデータ部には、縦結合前の各テーブル名をすべての行に入力する。例えば、テーブル 東京社員 のデータから作成された行には 東京社員、テーブル 大阪社員 のデータから作成された行には 大阪社員 を入力する
5. 新規指定テーブルはセルE2を基点に展開する
6. ブックに追加する新規クエリの名前は 全テーブル結合 とする
7. 新たに展開するテーブルは、テーブル名を T_全テーブル結合 とする
8. クエリ 全テーブル結合 を削除する
9. ブック内に読み込み元テーブルが見つからないといったエラー処理は一切考慮せずに極力シンプルなマクロにする
