giờ em có 3 file khác nhauEm muốn lấy dữ liệu mỗi file 1 range khác nhau gộp

Chào bạn ở range gộp có điểm gì chung không bạn?

Dạ thưa thầy em có đoạn code như bên dưới.Nhưng em không biết bước tiếp theo là mình lấy giá trị i với file đầu tiên như thế nào?
Em muốn hỏi là mình dùng lệnh if hay with ạ
Sub COMBINE_BOM()
'Tao thu muc mo file
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True 'Chon nhieu file mot luc
.Show 'Hien cua so chon file
Dim Annoucement1 As String
Annoucement1 = MsgBox("Do you want to combine all files?", vbYesNo, "Annoucement") 'Hien thong bao
'Neu No thi dong lenh, con khong thi thuc hien lenh
If Annoucement1 = vbNo Then
Exit Sub
Else
'Khai bao bien
Dim i As Long 'Bien chon file
For i = 1 To .SelectedItems.Count
'Gan bien cho cac workbook
Dim WB_result As Workbook 'Bien workbook ket qua
Dim WB_select As Workbook 'Bien workbook duoc chon
Set WB_result = ThisWorkbook
Set WB_select = Workbooks.Open(.SelectedItems(i))
'Dua du lieu tu file 1_SAMPLE vao thisworkbook
If i = 1 Then
WB_result.Sheets("Data").Range("A1:A7").Value = _
WB_select.Sheets("BOM-BOP").Range("A1:A7").Value
End With
End If
End Sub

Kiến thức này mình có hướng dẫn trong chương 10 (bài 6) rồi, bạn nên xem kỹ bài này để hiểu rõ hơn cách làm.
Khi gộp dữ liệu từ nhiều file vào 1 file thì cần xác định các biến: Dòng đầu, Dòng cuối, khoảng cách dòng. Hiện ở code của bạn chưa thấy nhắc tới nên bạn chưa xác định đúng được phạm vi vùng cho, vùng nhận.

Dạ!.Em muốn hỏi là lệnh nào để mình cho i=1 (file đầu tiên).Lấy dữ liệu file này để gộp vào file kết quả ak?.Sau khi xong lệnh này em mới tiến hành khai báo biến dòng đầu, dòng cuối và khoảng cách dòng.