Mensaje de alerta en cuanto quede poco o este en negativo stock

Esta macro es para cuando se modifica algo en la hoja, revisa toda la columna I

Private Sub Worksheet_Calculate()
'Por.Dante Amor
    For i = 2 To Range("I" & Rows.Count).End(xlUp).Row
        Select Case Cells(i, "I")
            Case ""
            Case Is < 0
                Cells(i, "I").Select
                MsgBox "Está por debajo " & Abs(Cells(i, "I")) & " KG. CÓDIGO: " & _
                    Cells(i, "A") & ". DESCRIPCIÓN: " & Cells(i, "B")
            Case 0
                Cells(i, "I").Select
                MsgBox "Stock en CERO. CÓDIGO: " & _
                    Cells(i, "A") & ". DESCRIPCIÓN: " & Cells(i, "B")
            Case 1 To 5
                Cells(i, "I").Select
                MsgBox "Sólo quedan " & Abs(Cells(i, "I")) & " KG. CÓDIGO: " & _
                    Cells(i, "A") & ". DESCRIPCIÓN: " & Cells(i, "B")
        End Select
    Next
End Sub

Para el caso del rango B118:G122, no pusiste ejemplos de lo que se tiene que revisar, en qué columna se tiene que revisar y qué mensaje quieres. Crea una nueva pregunta para este caso

Recuerda valorar esta pregunta

Saludos. Dante Amor

buenas noches...

Dante exelente lo que busco, que posibilidades hay que me apoyes en generar otra macro que el mensaje no me salga repetitivo si no que se revise solamente en la fila cuando se modifique un valor en la columna ejemplo si capturo en B118 a B122 o C118 a C122, D118 a D122, E118 a E122, F118 a F122, solo me salga el mensaje en existencia.

espero haberme dado entender anexo macro que me ayudastes en una solucion anterior que me enviastes, pero ahora quiero implementarlo en el nuevo formato que te envie en excel

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("A:C")) Is Nothing Then
For Each c In Target
Select Case Cells(c.Row, "D")
Case Is < 0
c.Select
MsgBox "Está por debajo - " & Abs(Cells(c.Row, "D")) & " KG."
Case 0
c.Select
MsgBox "Stock en CERO"
Case 1 To 5
c.Select
MsgBox "Sólo quedan " & Abs(Cells(c.Row, "D")) & " KG."
End Select
Next
End If
End Sub

saludos