Sub Prime()
Dim r&, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
For j = 4 To 34 Step 1
If sh.Cells(8, j).Interior.ColorIndex = 15 Then
sh.Cells(7, j).FormulaR1C1 = "1"
End If
Next j
  r = sh.Cells(Rows.Count, 2).End(xlUp).Row
  sh.Cells(10, 3).FormulaR1C1 = _
         "=IF(AND(LEFT(RC[-1],2)<""18"",SUMPRODUCT(RC[1]:RC[31]*(R7C4:R7C34<>1))),""о"",""п"")"
sh.Cells(10, 3).AutoFill Destination:=sh.Range("C10:C" & r), Type:=xlFillDefault
sh. Rows ("7:7").Hidden=True
Dim wsSh As Worksheet
     For Each wsSh In Sheets
         wsSh.UsedRange.Value = wsSh.UsedRange.Value
     Next wsSh
With sh.Range("C" & r  & ":C" & r ).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
         .Weight = xlThin
         .ColorIndex = xlAutomatic
End With
Next
End Sub