Macro: Trying to record Find "word" select all, insert shift to right. Doesn't play back

Ok, this seems to work fine when I do it live, but if I record it with a Macro and play it back I get a run-time error. I noticed what I'm doing isn't totally within the code.

Basically I want to find all instances of a word, and shift those cells over.

Let's say it's the word "cat"

I go to find, type cat, hit ctrl A

right click on one of the instances, select insert, shift cells right.

It's fine when I do it live, but when I run the macro I get a run time error.

However the VBA just shows this:

Sub Macro16()
'
' Macro16 Macro
'

'
    Cells.Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

No references to me going to find the word "cat" or anything.

Any idea?