Macro to copy text from ColumnA to B
Sub Move_A_to_B()
For MyRow = 1 To 2000 ' change 2000 to your last row
MyValue = Range("a" & MyRow).Value
If Left(MyValue, 6) = "sh cam" Then
Range("b" & MyRow).Value = "sh cam"
Range("a" & MyRow).ClearContents
End If
Next MyRow
End Sub
|