Public Sub Inversion()
Dim R As Range
Dim Cell As Range
Dim X As String
Set R = Range("C4:C" & Range("C65536").End(xlUp).Row)
For Each Cell In R
If Left(Cell, 9) = "CAC PA QC" And Left(Cell.Offset(0, 4), 7) = "CAC PA " Then
X = Cell
Cell = Cell.Offset(0, 4)
Cell.Offset(0, 4) = X
End If
Next
End Sub