Mas os números que já existem na coluna E vão sumir?

Se entendi direito, seria preencher a coluna D (TP) com o número que vem antes da barra (mesma linha de "Centro Custo:") e a coluna E (Ori) com o número depois da barra. É isso? Se for, tente rodar o seguinte código:

Sub PreencheTPeORI()
  Dim rgA As Range
  With Worksheets("Planilha1")
   For Each rgA In Intersect(.Range("O:O").SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow, .Range("D:E")).Areas
     rgA.Value = Split(Replace(rgA.Cells(2).Offset(-1), " ", ""), "/")
   Next rgA
  End With
End Sub 

@edsonbr deu certo Obrigado meu Amigo.