Cập nhật file từ 1 vùng cố định (1 người xem)

[phuocrobe]

Mình có 1 file tổng hợp khi chạy code sẽ cập nhật dữ liệu từ các file có tên trong vùng B4:B65536 ở sheet HUONGDAN (đoạn code tô đậm), vì tính chất công việc nên bây giờ mình chỉ muốn cập nhật dữ liệu tại 1 ô duy nhất là chỉ cập nhật file nào có tên tại vùng B4 sheet HUONGDAN thì phải làm thế nào?
Nhờ các anh chị giúp đỡ em nhé. Thank all

Public Sub mau02()Application.ScreenUpdating = False
Dim sArr(), Arr1(1 To 1, 1 To 9), tArr()
Dim MyName As String, Pat As String, I As Long, J As Long, K As Long, N As Long, L As Long, M As Long
With ActiveWorkbook
MyName = .Name
Pat = .Path & ""
tArr = .Sheets("HUONGDAN").Range("B4", .Sheets("HUONGDAN").Range("B65536").End(xlUp)).Value
End With
For N = 2 To UBound(tArr)
K = K + 1
Workbooks.Open Filename:=Pat & tArr(N, 1)

sArr = ActiveWorkbook.Sheets("Bieu Mau 02").Range("B9:J9").Value
For I = 1 To 1
For J = 1 To 9
Arr1(I, J) = Arr1(I, J) + sArr(I, J)
Next J
Next I

ActiveWindow.Close False
Next N
Workbooks(MyName).Activate

Sheets("Bieu Mau 02").Range("B9:J9") = Arr1

Application.ScreenUpdating = False
End If
End Sub