Cells.Find(What:=znach1, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Sub CHANGE()
Dim i As Long
Dim znach1 As Variant
Dim znach2 As Variant
Dim cell As Range

znach1 = InputBox("Введите MPN и, через пробел, договор позиции (например - 3FM220 FMD APS)")
znach2 = InputBox("В какую ячейку определяем? (б.буквами)")

If znach1 = "" Then Exit Sub
If znach2 = "" Then Exit Sub
Sheets("stock").Select

For Each cell In Range("G:G").Cells
    If cell.Value = znach1 Then
    ActiveCell.Offset(0, -7).Select
        ActiveCell.FormulaR1C1 = znach2
        End If
Next cell

Sheets("ВВОД").Select
    Range("F14").Select
End Sub

If Range("A1").Value = "1" Then
...
Range("_7").Value = CStr(Int(Rnd() * 6)+1) ' для каждого Range
End If

Sub Rotate()
With slots
Hide777
Color1
Randomize
 Dim PauseTime, Start
    PauseTime = 0.8

    Start = Timer
    PlSound
    Do While Timer < Start + PauseTime
        Range("_7").Value = CStr(Int(Rnd() * 10))
    Loop
    Start = Timer
    PlSound
    Do While Timer < Start + PauseTime
         Range("_77").Value = CStr(Int(Rnd() * 10))
    Finish = Timer
    Loop
    Start = Timer
    PlSound
    Do While Timer < Start + PauseTime
        Range("_777").Value = CStr(Int(Rnd() * 10))
    Loop
    PlSound0
Win
    Range("Blnc") = Range("Win") - Range("Ls") + Range("Inst")
WriteValue
Color3
Color2
Color4
End With
 End Sub