Try this. You don't say what sort of data you have to the right so whether you want to insert an entire row, or just move the current data down will have to be adjusted.
While Not IsEmpty(ActiveCell)
If Left(ActiveCell, 4) = "word" Then
ActiveCell = 4