Option Explicit

Sub Менять_InExSu()

  Dim r As Range
  Dim i As Long, x As Long, el As Long

  With ActiveSheet
'определяю диапазон
    Set r = Range(.Cells(4, 13), Cells(16, 18))
'и произвожу в нём замену
    r.Replace 2, 1

'определяю диапазон
    Set r = Range(.Cells(3, 13), .Cells(3, 18))
    For i = 4 To 11 'номера строк в примере
      el = .Cells(i, 5)
      If el > 0 Then _
         r.Offset(el, 0).Replace 1, 2 'заменяю в диапазоне
    Next
  End With
End Sub