Nhờ anh chị giúp đỡ code dữ liệu. Xin cảm ơn các anh chị giúp đỡ (1 người xem)

[amly1980]

Sub Macro1()
Dim wb As Workbook
SelectedFiles = Application.GetOpenFilename( _
filefilter:="Excel Files (*.xls*), *.xlsx*", MultiSelect:=False)
If SelectedFiles = 0 Then Exit Sub
Filename = SelectedFiles
Set wb = Workbooks.Open(Filename)
ThisWorkbook.Sheets(1).Range("A2:A5"),("m2:s5").Value = wb.Sheets(1).Range("A2:A5"),("m2:s5").Value
workbk.Close savechanges:=False
End Sub

Anh chị có thể giúp sửa lại code lấy dữ liệu từ vùng dữ liệu Range("A2:A5"),("m2:s5") về vùng dữ liệu Range("A2:A5"),("m2:s5") của file khác.