当方、マクロの知識が疎く、ネットで調べたりしているのですが、解決に苦慮しているためご助言をいただきたいです。
行いたいことは複数選択したファイルの特定のセルの値を１つのシートに順番に集めるというマクロの作成です。

具体的には、集める元のEXCELファイルをA、B、C・・・、集約後のEXCELファイルを�@とします。
マクロによってAファイルのA1セル、B1セルの値を�@ファイルのA1セル、B1セルに、BファイルのA1セル、B1セルの値を�@ファイルのA2セル、B2セルに、CファイルのA1セル、B1セルの値を�@ファイルのA3セル、B3セルに、というように順番にファイル名とともに集約していくということを行いたいです。


ネットでコードを拾いながら以下のものは作成しましたが、i1セルにファイルの保存先を指定しなければならず、出来れば自分で特定のファイルを複数選択し、選択したファイルから抽出出来るようなマクロを作成したいと考えています。

基本的なこともわかっていなく、正直お恥ずかしい限りですが、どなたか以下のコードをどのように直せば良いか具体的にご助言をいただけますと幸いです（そもそも全て直すことになるかもしれませんが・・・）。
よろしくお願いいたします。


-------以下、作成したマクロコード-------


Sub マクロ1()

Dim path, fso, file, files
Dim Wb As Workbook
Dim LastRow_Wb As Long

    'マクロファイルを変数格納
    Set Wb = ActiveWorkbook

    '読み取るブック格納先
    path = Range("i1")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set files = fso.GetFolder(path).files

    '貼り付け開始位置
    LastRow_Wb = 2

    Application.ScreenUpdating = False

        'フォルダ内の全ファイルについて処理
        For Each file In files

            'エクセルファイルだったら処理を進める
            If fso.GetExtensionName(file) = "xlsx" Or fso.GetExtensionName(file) = "xls" Then

                'エクセルファイルを開く
                Workbooks.Open (file)

                '指定セルコピーa1〜e1セルの値
                Range("a1,b1,c1,d1,e1").Copy

                'データを値貼り付け
                Wb.ActiveSheet.Cells(LastRow_Wb, 1).PasteSpecial Paste:= _
                xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                                              
                
                 'f列にファイル名転記F列
                Wb.ActiveSheet.Cells(LastRow_Wb, 6) = file.Name
                
                '最終行取得
                LastRow_Wb = Wb.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

                '開いたエクセルファイルを保存せず閉じる
                Application.DisplayAlerts = False
                ActiveWindow.Close
                Application.DisplayAlerts = True

            End If
        Next file

    Application.ScreenUpdating = True
 
End Sub