Another way to copy data from other workbook

Sub extracthourlysun()


    Dim wbkWorkbook1 As Workbook
    Dim wbkWorkbook2 As Workbook
    Dim fileName As String
    Dim Path As String
   
    Path = Sheets("sheet2").Range("A1")
    fileName = Dir(Path & "SUN-TC.xls")
    '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:J").Copy
   'wbkWorkbook1.Worksheets("Summary").Select
       wbkWorkbook1.Worksheets("SUN-TC").Range("A:J").PasteSpecial
     
       Application.DisplayAlerts = False
     

    'close the workbook
    wbkWorkbook2.Close (True)

end sub