Transferindo dados de colunas com base em valores específicos.

Eu tenho uma coluna de números no Excel que preciso separar com base no valor específico em outra coluna.

Até agora, usei uma maneira extensa de copiar e excluir, mas gostaria de poder escrever uma fórmula que a atinja.

Posso escrever esta fórmula que coloca o valor em outra coluna para mim, mas também quero que o valor seja excluído da coluna original.

= SE (P625 = "OR", (I625), 0).

Posso escrever algo no final desta fórmula que excluirá o valor de I625?

Com dados como:

executando esta macro curta:

Sub Oranges()
    i = 1
    For Each r In Columns(2).SpecialCells(2)
        If r.Value = "OR" Then
            r.Offset(0, -1).Copy Cells(i, 3)
            r.Offset(0, -1).Clear
            i = i + 1
        End If
    Next r
End Sub

vai produzir:

EDIT # 1:

A versão pode atender às suas necessidades:

Sub Oranges2()
    For Each r In Columns(2).SpecialCells(2)
        If r.Value = "OR" Then
            r.Offset(0, -1).Copy r.Offset(0, 1)
            r.Offset(0, -1).Clear
        Else
            r.Offset(0, 1) = 0
        End If
    Next r
End Sub