To copy data to another workbook and paste to another workbook.

To copy data to another workbook and  paste to another workbook.


Sub extractstore1()

    Dim wbkWorkbook1 As Workbook
    Dim wbkWorkbook2 As Workbook
    Dim fileName As String
    Dim Path As String
    Dim path2 As String
   
   
    Path = Sheets("Input Sheet").Range("i21")
    path2 = Sheets("Input Sheet").Range("d11")
    fileName = Dir(Path & path2 & ".CSV*")
    'define paths and filenames
   

    'open files
    Set wbkWorkbook1 = ThisWorkbook '### changed this
    Set wbkWorkbook2 = Workbooks.Open(Path & fileName)
    'copy the values across
    '### change the sheet and range to what you need
    wbkWorkbook2.Worksheets("Sheet1").Range("A:DZ").Copy
   'wbkWorkbook1.Worksheets("Summary").Select
       wbkWorkbook1.Worksheets("Store 1").Range("A:DZ").PasteSpecial
     
       Application.DisplayAlerts = False
         wbkWorkbook2.Close (True)
End Sub