Вместо макроподхода и вместо перемещения я сохраню данные в столбце C, а затем добавлю следующие формулы:
В ячейку A3 я бы поместил:
=if(d3 = "PS588", c3, "")
В ячейке B3 я бы разместил:
=if(d3 = "PS124", c3, "")
Затем перетащите маркеры заливки вниз, чтобы скопировать формулу в каждую из ячеек в обоих столбцах.