Sub Макрос1()
 

For счетчик = 1 To Sheets("лист1").Range("a1")
Call МАКРОС2
If (счетчик = Sheets("лист1").Range("a1")) Then Exit For
Next счетчик
  End Sub

Sub МАКРОС2()


With Selection
    If .Cells.Count > 1 Or Intersect(Range(.Address), Range("L25:X45")) Is Nothing Then Exit Sub
 
    If .Row = 25 Then
    
        Exit Sub
    End If
  upVal = .Offset(-1, 0).Value
    .Offset(-1, 1).Value = .Value
    
    .Offset(-1, 1).Select
End With
End Sub

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