Missing data after copy rows data from different worksheets

Hi,
I have attached my file for reference.
Can anyone help me to check what is my mistakes?
Thank you.

Sub CopySheets()
     
    Dim ws As Worksheet
    Dim lastrow As Long
    
    Application.ScreenUpdating = False
     
    For Each ws In Sheets(Array("LQ80", "LQ100", "LQ144A"))
    lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
        
        With ws
            .Range("A8:M" & CStr(lastrow)).Copy
            Worksheets("Final").Range("A" & CStr(lastrow)).PasteSpecial (xlPasteValues)
        End With
    
    Next ws
     
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
     
    Columns("K:K").ColumnWidth = 9
    Columns("L:L").ColumnWidth = 18
    Columns("M:M").ColumnWidth = 28
    
    Range("A1:J1").Select
    
End Sub

I'm sorry. I reattached my workbook.