Giúp e sửa code để merge từ nhiều sheet vào 1 tổng hợp (Vị trí collumn có thay đổi) (2 người xem)

[tinhoclagi2005]

Em có search bài trên diễn đàn cũng có kiếm cho mình được macro phù hợp nhưng chỉ được 1 sheet,
Các bạn giúp mình sửa lại code để merge nhiều sheet nhé
Macro đã có sẵn trong file đính kèm luôn.
Em cũng có tìm được 1 macro khác của anh BATE nhưng phải giống coluumn/header nên ko áp dụng cho em được
CÁc anh chị nào rảnh giúp em với ạh

Public Sub GPE()
Dim sArr(), dArr(1 To 1000, 1 To 100), I As Long, J As Long, K As Long, Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "GPE" Then
        sArr = Ws.[A5].CurrentRegion.Offset(1).Value
        For I = 4 To UBound(sArr, 1) - 1
            K = K + 1
            For J = 1 To UBound(sArr, 2)
                dArr(K, J) = sArr(I, J)
            Next J
        Next I
    End If
Next
With Sheets("GPE")
    .[A5:Z1000].ClearContents
    If K Then .[A5].Resize(K, .[IV1].End(xlToLeft).Column).Value = dArr
End With
End Sub

Em cảm ơn