How can I combine Multiple Sheets in One Mastersheet while maintaining the Header Data

Here is some code for copying and pasting. I did not do the sort as I felt you had that under control and could add it yourself.

Sub Sjoerd()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim w3 As Worksheet
    Dim w4 As Worksheet
    Set w1 = Sheets("Resumen")
    Set w2 = Sheets("C001")
    Set w3 = Sheets("C002")
    Set w4 = Sheets("C003")
    Dim lr1 As Long
    lr1 = w1.Range("A" & Rows.Count).End(xlUp).Row
    Dim lr2 As Long
    lr2 = w2.Range("A" & Rows.Count).End(xlUp).Row
    Dim lr3 As Long
    lr3 = w3.Range("A" & Rows.Count).End(xlUp).Row
    Dim lr4 As Long
    lr4 = w4.Range("A" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
    w1.Range("A6:Q" & lr1).ClearContents
    lr1 = w1.Range("A" & Rows.Count).End(xlUp).Row
    w2.Range("A2:Q" & lr2).Copy w1.Range("A" & lr1 + 1)
    lr1 = w1.Range("A" & Rows.Count).End(xlUp).Row
    w3.Range("A2:Q" & lr2).Copy w1.Range("A" & lr1 + 1)
    lr1 = w1.Range("A" & Rows.Count).End(xlUp).Row
    w4.Range("A2:Q" & lr2).Copy w1.Range("A" & lr1 + 1)
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub