Você não precisa usar o VBA para resolver isso, pode fazê-lo com localizar e substituir:
- copie seu intervalo de segmentação para um novo local onde você precisa obter a lista e selecioná-lo.
- abre a janela de localização e substituição ( CTRL + H )
- pressione "Mais" e selecione "Usar curingas"
- Para "localizar o que" digite
[!<]@\<([!>]@)\>[!<]@
(você pode ler mais sobre expressões regulares aqui ) - Para "substituir por" insira
^13
- pressione "substituir tudo"