VBA: Erstatte tekst i kolonne

Opdateret kode, den virker når feltet er blank men hvis der er tekst i en celle, så virker den til at gå i infinite loop.

Sub SearchTerms()

Dim Findtext As String
Dim Replacetext As String
Dim LastRowInput As Long
Dim field1 As String


LastRowInput = Cells(Rows.count, "T").End(xlUp).Row

For i = 2 To LastRowInput

field1 = Range("T13" & i).Value

Findtext = Sheets("Sheet1").Range("T13").Value
field1 = Sheets("Sheet1").Range("T" & LastRowInput + 1).Value

Replacetext = "{Nyckelord=""" & field1 & """;}"

Sheets("Sheet1").Select

Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next i

End Sub

LastRowInput = Range("T" & ActiveSheet.UsedRange.Rows.count + 1).End(xlUp).Row

    For i = 0 To LastRowInput - 13

      Range("T" & 13 + i).Value = "{Nyckelord=" & Range("T" & 13 + i).Value & ";}"

    Next i