Sub ПрограммаИ()
    Dim wb As Workbook
    On Error Resume Next
        Set wb = Workbooks("export1.xlsx")
    On Error GoTo 0
    If wb Is Nothing Then
        MsgBox "Не нашёл export1.xlsx", vbInformation
        Exit Sub
    End If
    
    Dim ApplicationCalculation As Long
    ApplicationCalculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    Dim y As Long
    Dim a As Variant
    
    With ThisWorkbook.Sheets("Объекты")
        y = .Cells(Rows.Count, 4).End(xlUp).Row
        a = .Range(.Cells(1, 4), .Cells(y, 4))
        .Range(.Cells(2, 7), .Cells(y, 7)).ClearContents
        For y = 2 To UBound(a, 1)
            If WorksheetFunction.CountIfs(wb.Sheets("Объекты").Columns(4), a(y, 1)) > 0 Then
                .Cells(y, 7).Value = "Программа"
            Else
                .Cells(y, 7).Value = "Анекдоты"
            End If
        Next
    End With
    
    ApplicationCalculation = ApplicationCalculation
End Sub