Sub mjm()
c = Range("b200").End(xlUp).Row + 1
For Each sh In Sheets
If sh.Name <> "RECAP" Then
dlig = sh.Range("b200").End(xlUp).Row + 1
For j = 7 To dlig
If sh.Cells(j, 11).Value <> "" Then
If c = 37 Then c = 41
Sheets("RECAP").Cells(c, 2) = sh.Name
Sheets("RECAP").Cells(c, 3) = sh.Cells(j, 11)
Sheets("RECAP").Cells(c, 4) = sh.Cells(j, 2)
c = c + 1
sh.Rows(j).Delete Shift:=xlUp
j = j - 1
End If
Next j
End If
Next sh
End Sub