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