Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range, y As Range, k As Long, q As Long
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [A2:B7]) Is Nothing Then Exit Sub
    Set x = Cells(Target.Row, 1): Set y = Cells(Target.Row, 2)
    If Val(x) = 0 Or Val(y) = 0 Then Exit Sub
    With Application
        .EnableEvents = False
        k = .Ceiling(x, y)
        If x <> k Then
            q = x: x = k
            MsgBox "Заказ округлен с учетом кратности" & vbCrLf & " В ячейке " & _
            Chr(34) & x.Address(RowAbsolute:=False, ColumnAbsolute:=False) & Chr(34) & _
            " значение " & q & " заменено на " & k, vbExclamation, "ВНИМАНИЕ!"
        End If
        .EnableEvents = True
    End With
End Sub