Sub importData_test()
Dim owb As Workbook
Dim sh As Worksheet
Set sh = Sheet1
'mở file cần lấy dữ liệu
Set owb = Workbooks.Open("C:\Users\cuong\Desktop\VBA\dulieu.xlsx")
'copy vùng dữ liệu cần lấy
owb.Sheets("Data").Range("C1:G200").Copy
'dán vào vũng cần lấy...