Dim Beep(1 To 2000 / 5) As Boolean
Private Sub Worksheet_Calculate()
    For I = 1 To UBound(Beep)
        If Range("AX" & I * 5) > 5 Then
        ' или
        'If Cells(I * 5, 50) > 5 Then
            If Not Beep(I) Then BeepH2: Beep(I) = True: Exit For
        Else
            Beep(I) = False
        End If
    Next I
End Sub

Dim Beep(1 To 2000 / 5) As Boolean
Private Sub Worksheet_Calculate()
    For I = 1 To UBound(Beep)
        If IsNumeric(Range("AX" & I * 5)) Then
            If Range("AX" & I * 5) > 5 Then
            ' или
            'If Cells(I * 5, 50) > 5 Then
                If Not Beep(I) Then BeepH2: Beep(I) = True: Exit For
            Else
                Beep(I) = False
            End If
        Else
            Beep(I) = False
        End If
    Next I
End Sub

Dim Beep(1 To 2000 / 5) As Boolean
Private Sub Worksheet_Calculate()
    For I = 1 To UBound(Beep)
        If IsNumeric(Range("O" & I * 5)) Then
            If Range("O" & I * 5) > 5 Then
            ' или
            'If Cells(I * 5, 50) > 5 Then
                If Not Beep(I) Then BeepH2: Beep(I) = True: Exit For
            Else
                Beep(I) = False
            End If
        Else
            Beep(I) = False
        End If
    Next I
End Sub

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub beeps(melody As String, Optional ByVal BeepTime As Integer = 200): mr = "qazwsxedcrfvtgbyhnujmik,ol.p;/['"
    ' If Not UCase(VBA.Environ(5)) Like "*IGORHOME*" Then If Not GRegB("EnableSound", az_Reg_Settings) Then Exit Sub
    For I = 1 To Len(melody)
        DoEvents
        nextlen = 1: letter = Mid$(melody, I, 1)
        nota = InStr(1, mr, letter)
        If IsNumeric(letter) And letter > 0 Then nextlen = letter: I = I + 1: nota = InStr(1, mr, Mid$(melody, I, 1))
  
       If nota > 0 Then tone = 220 * (2 ^ ((nota - 1) / 12)): a = _
       Beep(tone, nextlen * BeepTime) Else: a = Beep(30000, nextlen * BeepTime / _
5)
    Next:
End Sub

Sub beepH(): beeps "k", 100: End Sub
Sub beepH0(): beeps "k", 30: End Sub
Sub BeepH2(): beeps "k,k", 100: End Sub
Sub beepL(): Beep 100, 100: End Sub
Sub beepL0(): Beep 100, 30: End Sub
Sub BeepL2(): Beep 100, 100: Beep 104, 100: Beep 100, 100: Beep 70, 200: End Sub
Sub melody1(): speed = 150
    beeps "5 5 3jnybt tybtftdx2d", speed: beeps "5 5 3jnybt tybtftdx2d", speed
    beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf2t", speed: beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf3 yb2t", speed
End Sub
Sub melody2(): speed = 250
  
   beeps "jny3b3t5 5 jny3y3b 5 5 bynk2m5 bynk2m j2b2 n3y", speed: beeps _
    "5 5 5 jny3b3t5 5 jny3y3b 5 5 bynk2m5 bynk2m j2b2 y3t", speed
    beeps "5 5 5 ff3y5 yy2yyy2yby2b4t", speed: beeps "5 5 5 ff2y5 tby tby nj3m", speed
End Sub

Sub beepNew(): Beep 440, 500: End Sub