Gộp sheet, file excel theo danh sách

[Hoantk223]

Em đang có code để gộp nhiều sheet thành 1 Sheet. Nhưng hiện tại e có rất nhiều file giống như vậy, Để ko phải mở từng file 1 chạy code. Em muốn chạy theo danh sách trong file tổng, nhưng em vẫn chưa biết cách để sửa. Mọi người xem giúp em với ạ.

Sub Gop()
Dim J As Integer
Dim Lr As Long
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Data"
Sheets(2).Activate
Range("A4").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
Sheets(1).Range("H1") = "SoKH"
Application.ScreenUpdating = False
For J = 2 To Sheets.Count
Lr = Sheets(J).Range("A" & Rows.Count).End(xlUp).Row
Sheets(J).Range("H5:H" & Lr) = Right(Sheets(J).Range("A2"), 4)
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(4, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Sheets(1).Range("H").Formula = Right(Sheets(J).Range("A2"), 4)
Next J
Application.ScreenUpdating = True
End Sub