простой цикл, через который будут выполняться ячейки, сделает свое дело
Set cl = [A1]
Do While cl <> ""
cl = Trim(Replace(cl, cl.Offset(0, 1), ""))
Set cl = cl.Offset(1, 0)
Loop
Примечание: если у вас много строк (считайте 10 или 100 тысяч), обработка итерирующих ячеек может быть медленной.Есть много способов ускорить его, если они вам нужны