Public Sub trpr()
On Error GoTo err1
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    Dim SH As Worksheet
    Set SH = ThisWorkbook.Worksheets("Лист1")

    Dim c As Long, r As Long, f As String
    
    For r =  6  To  60 
        For c =  4  To  6 
            If SH.Cells(r, c).HasFormula Then
                If SH.Cells(r, c).FormulaR1C1 = "=R7C5/R6C3" Then
                   SH.Cells(r, c).FormulaR1C1 = "=OFFSET(R7C5,0,COLUMN()*3-9)/OFFSET(R6C3,0,COLUMN()*3-9)"
                End If
            End If
        Next
    Next
    
err1:
    If Err.Number <>  0  Then
        MsgBox Err.Description
    End If
    Set SH = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub