Excel Macro: If the final characters of a cell is "something" then, cut them and paste them elsewhere

This is an extension of a previously asked question that was amazingly answered and made me think of how else I can simplify my sloppy code.

Dim i As Long, l As Long
l = Cells(Rows.Count, 4).End(xlUp).Row
For i = l To 1 Step -1
  If Right(Cells(i, 4).Value, 4) = " XX " Then 

   'do some stuff to cut and paste that ending to ColumnE'
    Cells(i, 4) = ???
  End If
Next i