For j = LBound(shtnames) To UBound(shtnames)
For Each wks In WKB.Sheets
If wks.Name = shtnames(j) Then
w = WKB.Sheets(shtnames(j)).Range("a65356").End(xlUp).Row
If w >= 2 Then
WKB.Sheets(shtnames(j)).Range(stcol & "2:" & lastcol & w).Copy _
Destination:=ThisWorkbook.Sheets(shtnames(j)).Range("a65356").End(xlUp).Offset(1, 0)
LastCell = ThisWorkbook.Sheets(shtnames(j)).Cells(Rows.Count, "A").End(xlUp).Row
LastCell2 = ThisWorkbook.Sheets(shtnames(j)).Cells(Rows.Count, "AA").End(xlUp).Row + 1
ThisWorkbook.Sheets(shtnames(j)).Range("AA" & LastCell2 & ":" & "AA" & LastCell).Value = WKB.Name