Change the text within a cell to the text within another cell and paste in another co

[alansidman]

Try this aircode:

Option Explicit

Sub ams()
    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row

    Application.ScreenUpdating = False
    For i = 2 To lr
        If Left(Range("A" & i), 3) = "Ext" Or Left(Range("A" & i), 3) = "ext" Then
            Range("C" & i).Copy Range("B" & i)
        Else: Range("A" & i).Copy Range("B" & i)
        End If
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "complete"

End Sub