Macro to copy cell from the next column if a certain word is found

Originally Posted by Raymundus

Try this, but note, it's not column Z in your workbooks that has the "*other", but rather column AA1... so you may have to adjust the range to suit.

Sub Other()
Dim lrow As Long
Dim rng As Range

lrow = ActiveSheet.UsedRange.Rows.Count
Set rng = Range("AA1", "AA" & lrow)

For Each Cell In rng
If Cell.Value = "*other" Then
Cell.Value = Cell.Offset(0, 1).Value
End If
Next Cell
End Sub

If it works for you, I would appreciate some reputation (little black star on the left)

Ah, you're right, I mistakenly copied it into the wrong column. I've adjusted the range to column Z and it worked perfectly! Thank you very much! Repped!