同じフォルダ内のファイルを開いてコピーする

Sub 同じフォルダ内のファイルを開く()

    '同じフォルダ内のファイルを開いてコピーする

    'パスとファイル名の変数宣言
    Dim 保存場所 As String, ファイル名 As String
    '転記先と転記元の変数宣言
    Dim 転記先, 転記元 As Workbook
    
        Set 転記先 = ActiveWorkbook
        
      
            '保存場所パス
             保存場所 = "C:\Users\Desktop\テスト\"
            'ファイル名
             ファイル名 = Dir(保存場所 & "V*.xlsm")
   
                '転記元を読み取り専用で開く
                 Workbooks.Open 保存場所 & ファイル名, ReadOnly:=True
    
            Set 転記元 = Workbooks.Open(保存場所 & ファイル名)
            
        '転送元のフィルタ設定
        転記元.Worksheets("Sheet1").Range("A1").AutoFilter 1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
        '転送先のシート1のC2のコピペ
        転記元.Worksheets("Sheet1").Range(Range("C2"), Cells(Rows.Count, 3).End(xlUp)).Copy _
        転記先.Worksheets("Sheet1").Range("A1")
        
        'マスターデータ取り込み先のファイルを閉じる
        転記元.Close False
  
End Sub