Option Explicit

Sub TurnOff()

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        .Calculation = xlManual
    End With

End Sub

Sub TurnOn()

    With Application
        .EnableEvents = True
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With

End Sub

Sub Maksimys07()
    Dim RowLast As Long, i As Long
    Call TurnOff

    With ThisWorkbook.Worksheets("Main")
        RowLast = .Cells(.Rows.Count, 7).End(xlUp).Row

        For i = 3 To RowLast

            If IsDate(.Cells(i, 7).Value) Then
                .Cells(i, 1).Value = "Встреча"
            Else
                .Cells(i, 1).Value = "Событие"
            End If

        Next i

    End With

    Call TurnOn
End Sub

=ЕСЛИ(ЕЧИСЛО(G14);"Встреча";"")