VBA 다른곳에 있는 엑셀파일 불러와서 붙여넣기

Sub CopyAllDataFromOtherWorkbook()
    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\이미지테스트\데이터.xlsx")
    
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Sheet1")
    
    Dim data As Variant
    data = ws.UsedRange.Value
    
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add
    newSheet.Name = "CopiedSheet"
    newSheet.Range("A1").Resize(UBound(data, 1), UBound(data, 2)).Value = data
    
    wb.Close
   
End Sub