How can I get this to work as soon as data is in in Column B?

[Livin404]

Greetings earlier Kevin9999 guided me on how to auto populate a cell in a given column based on a wildcard in Column A. I updated slightly for I needed Column B. It appears to be fine, but when I updated it will not retroactive
the data that also is present in Column B. I have to go back to the cell place the curser in the cell and present enter. I thought it would do the whole lot at once.

Thank you,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim result As String
    If Not Intersect(Range("B:B"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For Each rng In Intersect(Range("B:B"), Target)
            If rng.Value Like "TE*" Then
                rng.Offset(0, 13).Value = "///KG"
            End If
        Next rng
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

 

[JoeMo]

Your code will only change the cells in the target that intersect col B.

 

[Livin404]

Your code will only change the cells in the target that intersect col B.

That is correct, thank you,

 

[JoeMo]

You could select all the cells in col B you want to update, right-click and choose copy then paste as values. That should run the change code on each of the selected cells.