Cut & Paste columns, if columns contains a certain value

So i want to cut and paste columns if it contains a value, for example if my column contained the word 'dog', it would cut the entire column and paste the column one column to the right. Confusing, so i'll post a couple of images of what i want:

Before:

1.png

After:

2.png

That's great, but i need it to work if the cell contains other data, so for example if the cell contained "sdsadsadas dog 1213213", I'd need the code still to run.

I tried using this, but it didn't work:

Please Login or Register  to view this content.

This modification to DBY's code may help.

Please Login or Register  to view this content.

Spot on. Thanks for the help guys.

Glad we could help. Thanks for the rep mark.