Sub NotCopySomeSheets1()
Dim ws As Worksheet, ws1 As Worksheet, LR As Long
Application.ScreenUpdating = 0
For Each ws1 In ThisWorkbook.Worksheets
'For Each ws1 In Sheets(Array("P03", "P04", "P05", "P06", "P07", "P10", "P11", "P12", "P13", "P14", "P15", "P17", _
"P18", "P19", "P20", "P21", "P22", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31", "P33", "P34", "P35", _
"P36", "P37", "P38", "P39", "P40", "P41", "P42", "P44", "P45", "P46", "P47", "P48", "P49", "P50", "P51", "P52", _
"P53", "P55", "P56", "P57", "P58", "P59", "P60", "P61", "P63", "P64", "P65", "P66", "P68", "P69", "P70", "P71", _
"P72", "P73", "P75", "P76", "P77", "P78", "P79", "P80", "P81", "P82", "P83", "P85", "P86", "P89", "P90", "P91", _
"P93", "P94", "P95", "P97", "P98", "P99", "P103", "P104", "P105", "P106", "P107", "P109", "P110", "P111", "P112", _
"P113", "P115", "P116", "P117", "P119", "P120", "P121", "P123", "P124", "P125", "P126", "P127", "P128"))
With ws1
If .Name <> "P129" Then
If InStr(1, (.Name), "P", 1) > 0 Then
LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
.Range("B11:K" & LR).Copy
Sheets("P129").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End If
End If
End With
Next ws1
Bookmarks