Find Text in Column then Move

Hi Appreciate any help here as usual.
My data gets out of wack and I need to move it back 1 col
EG: if "1ST" is found in G6 them move G6:AE6 back to F6

In Column G:G need to find text "1ST"
then move data in that row including all columns from G:AE
Back 1 column
Must do this for each record found in the sheet
Sheet name is "Ozeform"

I can do this for the first record found but do not know how to do it for all records found.....

Range("G2").Select
Cells.Find(What:="1ST", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("G1").Select
Cells.Find(What:="1ST", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Range("F6").Select
ActiveSheet.Paste

Regards
Graham

Welcome to the forum.

We'd like to help you but first..

Pls take some minutes to read forum rules and specially-in this case- rule#3 and add code tags around your code.
Then anyone will be able to help you.

**i mooved your thread in VBA section.