Sub Zamena()
Dim lLastRowA As Long, lLastRowB As Long, TekRowA As Long, TekRowB As Long, NT As String, NT1 As String
lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row
lLastRowB = Cells(Rows.Count, "B").End(xlUp).Row
For TekRowA = 2 To lLastRowA
NT = WorksheetFunction.Substitute(Cells(TekRowA, 1), Cells(2, 2), Cells(2, 3))
If lLastRowB > 2 Then
For TekRowB = 3 To lLastRowB
NT = WorksheetFunction.Substitute(NT, Cells(TekRowB, 2), Cells(TekRowB, 3))
Next TekRowB
End If
Cells(TekRowA, 4) = NT
Next TekRowA
End Sub