Private Sub Worksheet_Change(ByVal Target As Range)
    Dim j As Long, d_ As Range, d0_ As Range, n_
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = 0
    Application.EnableEvents = False
    Set d0_ = Range("G1:I1")
    With Target
        If Not Application.Intersect(d0_, .Cells) Is Nothing Then
            If .Value > 0 Then
                n_ = .Value
                Range("G1:I1") = 0
                .Value = n_
                Range("B2").Value = .Offset(.Value, 0).Value
            End If
        ElseIf .Address(0, 0) = "B2" Then
            For Each d_ In d0_
                If d_ <> 0 Then
                    d_.Offset(d_.Value) = .Value
                End If
            Next d_
        End If
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = 1
End Sub