При помощи форумчан написал такой макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("DZ3:DZ1500")) Is Nothing Then
Select Case Target.Value
Case 1
Target.Offset(, 1).Select
Case 2
Target.Offset(, 6).Select
Case 99
Target.Offset(, 11).Select
End Select
End If
If Not Intersect(Target, Range("JS3:JS1500")) Is Nothing Then
Select Case Target.Value
Case 1
Target.Offset(, 1).Select
Case 2
Target.Offset(, 1).Select
Case 3
Target.Offset(, 6).Select
Case 4
Target.Offset(, 6).Select
Case 99
Target.Offset(, 6).Select
End Select
End If
If Not Intersect(Target, Range("JZ3:JZ1500")) Is Nothing Then
Select Case Target.Value
Case 1
Target.Offset(, 1).Select
Case 2
Target.Offset(, 9).Select
Case 99
Target.Offset(, 9).Select
End Select
End If
End Sub

Он отлично работает!
Но его нужно немного усложнить. Нужно чтобы при введении в первую ячейку значения 99 это же самое значение копировалось в следующую ячейку, а активной становилась ячейка, которая следует за ней. Не подскажете как это можно сделать?

Различные функции (н-р "если") в документе использовать нельзя по нескольким причинам. Надежда только на макрос.

Еще, если можно, подскажите как можно сделать так, чтобы макрос запускался и выключался сочитанием клавишь? Макрос копируется в модуль листа. (Это я уже тоже умными словами разговаривать начал :-) )

Вы не смотрите, что я умными словами разговариваю (иногда :-) ), на VBA я только-только работать начал.
Если не трудно, подскажите куда мне этот Application.OnKey. девать и что с ним делать?