I have a macro that does everything I need it to do (find a certain word, move the contents of that cell it to another cell, and keep searching for more). However, I can't get it to stop (and move on to the next command).

Here is what I have:

' MOVE "Participant Name"
Columns("C:C").Select
Do
Cells.Find(What:="Participant", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
With ActiveCell
If .Column > 1 And .Row < Rows.Count Then
.Cut Destination:=.Offset(3, -2)
End If
End With
Loop Until IsEmpty(ActiveCell.Offset(0, 1))

I'm sure it's obvious to you gurus, but I need your help!