Sub Ex()
Dim ¦X®æ As Boolean
Dim R%, Ri%, i%, Rn%, sh%, Spcs, Arr
Arr = Range([spc!N2], [spc!A2].End(xlDown))
Set Shs = Sheets("spc")
Spcs = Shs.[A2].End(xlDown).Row - 1
Sheets("DATA").Activate
Rn = [A1].End(xlDown).Row
For sh = 1 To Spcs
With Sheets(Arr(sh, 1))
Debug.Print .Name
.Cells(2, 2).Resize(Rn, 25).ClearContents
Ri = 2
For R = 2 To Rn
¦X®æ = True
For i = 1 To 13
If Arr(sh, i + 1) <> "" And Cells(R, i + 12) > Arr(sh, i + 1) Then ¦X®æ = False: Exit For
Next i
If ¦X®æ Then .Cells(Ri, 2).Resize(, 25) = Cells(R, 1).Resize(, 25).Value: Ri = Ri + 1
Next R
End With
Next sh
End Sub