Columns(120).Cut
Columns(32).Insert Shift:=xlToRight

Sub Мяу()
    Dim arFind()
    Dim borderline&, colCut&, colInsert&, i&
    arFind = Array("г", "с")

    With Application
        .ScreenUpdating = False
        With .FindFormat
            .Interior.Color = 10092441
            On Error Resume Next
            For i = 0 To 1
                Do
                    colCut = 0: colInsert = 0
                    borderline = Rows(8).Find(What:="", After:=Rows(8).Cells(1), LookIn:=xlValues, LookAt _
                    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                    False, SearchFormat:=True).Column
                    colCut = Rows(8).Find(What:=arFind(i), After:=Rows(8).Cells(borderline), LookIn:=xlValues, LookAt _
                    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                    False, SearchFormat:=False).Column
                    If colCut < borderline Then Exit Do
                    colInsert = Rows(8).Find(What:=arFind(i), After:=Rows(8).Cells(borderline), LookIn:=xlValues, LookAt _
                    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:= _
                    False, SearchFormat:=False).Column + 1
                    Columns(colCut).Cut
                    Columns(colInsert).Insert
                    DoEvents
                Loop Until Err
            Next
            .Clear
        End With
        .ScreenUpdating = False
    End With

End Sub