----------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Macro998()
'
' Macro2 Macro
    Dim cell As Range

    Cells.Find(What:="201", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    For Each cell In Cells
        Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1)).Select
        If ActiveCell.HasFormula = True Then
            MsgBox "IMA FORMULU END FOR LOOP"
            Exit For
        End If
        ActiveCell.Value = "=" + Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 0)).AddressLocal() + "*11.5"
        Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -1)).Select
        If ActiveCell.HasFormula = False Then
            Cells.FindNext(After:=ActiveCell).Activate
        End If
    Next cell
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------