Переместить текст с конца строки в начало

Sub Perenos()
Dim i As Long
Dim rCell As Range
'Dim oObjectFind As Range - необходим при задании текста в ячейку
Dim oFromEndToFind As Long
Dim oStringLength As Long
Dim x As Long
Dim y As Long
Dim z As Long
Dim wFirstPart As String
Dim wSecondPart As String
Const oObjectFind As String = " к "
'Set oObjectFind = Cells(10, 10) 'Это ячейка с искомым текстом (задаёт oObjectFind) - можно задать текст в ячейку
    For i = 2 To 7 'Тут указываем необходимый диапазон количества строк
    Set rCell = Range("H" & i) 'Тут указываем диапазон ячеек (по сути - столбец)
        oFromEndToFind = InStrRev(rCell.Text, oObjectFind)
        ''MsgBox "Значение:" & oFromEndToFind
            If oFromEndToFind = 0 Then GoTo Line1
                oStringLength = Len(rCell.Text)
                ''MsgBox "Длина строки =" & oStringLength
                    x = oFromEndToFind - 1
                    ''MsgBox "Слева от искомого " & x & " символов"
                        y = oStringLength - x
                        ''MsgBox "Промежуток равен " & y & " символов"
                            z = y - 3
                            ''MsgBox "Справа от искомого " & z & " символов"
        wFirstPart = Left(rCell.Text, x)
        ''MsgBox "в конце будет:" & wFirstPart
            wSecondPart = Right(rCell.Text, z)
            ''MsgBox "в начале будет:" & wSecondPart
            If Not IsEmpty(Cells(i, 8)) Then Cells(i, 8) = wSecondPart & " [" & wFirstPart & "]"
Line1:
    Next
End Sub