U okviru Get Data (Power Query) već postoji rešenje za ovakav slučaj, pa nije neophodan VBA.
1/ Napravi se query na osnovu postojeće table (range se automatski konvertuje u tabelu)

Potvrditi konvertovanje range tabelu
2/ U Query Editoru označiti kolonu sa separatorima, pa dodati korak Split Column By Delimiter

3/ U dijalogu Split Column by Delimiter aktivirati Advance opcije pa izabrati Spliti into
Rows

4/ Ako želiš da izbaciš višak blank na selektovanu kolonu primeni
Trim -
5/ Zatvoriti Query Editor Home > Close and Load
Tabela kakvu si hteo biće formirana na posebnom listu (može i na istom ako ti više odgovara)
Ako se početna tabela menja - uraditi refresh konačne tabele.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?