How can I used the following code (which works) to cut the cell beside AMI Access and move it to the right also?
and loop through the entire sheet?

Set rngFound = Cells.Find(What:="AMI Access", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

rngFound.Cut Destination:=rngFound.Offset(-1, 1)
Set rngFound = Nothing