Excel VBA - Jak wyświetlić dane pracownika w osobnych liniach?

Witam.
W arkuszu mam 150 komórek w których wpisuję dane pracownika: Nazwisko, Imię i Numer. Docelowo chcę aby te wszystkie dane wyświetlały się jedno pod drugim. Najprościej to w komórkach włączyłem zawijanie tekstu. Jednak komórki są na tyle rozszerzone aby zmieściły się w jednej linie długie nazwiska i rozszerzenia komórki nie chcę już zmieniać. Ale jest problem, kiedy nazwisko i imię jest krótkie to wyświetlą się w jednej linii a ja potrzebuję żeby mino to wyświetliły się jedno pod drogim. Próbuje do kodu VBA arkusza dodać poniższy kod ale niestety nie wiem czy kod jest poprawny i w jakim dokładnie miejscu kodu powinienem umieścić poniższy kod aby zawsze kiedy dodam lub zmienię dane pracownika od razu kod zadziałał i podzielił dane. czy mogę poprosić o podpowiedź w rozwiązaniu problemu?

Najlepiej zrealizować to w procedurze zdarzeniowej przy zmianie.
Ograniczać zakres już umiesz If Not Intersect(Target, Range...

Kurcze nic mi z tego nie wychodzi, daje taki kod ale wywala błąd:

Nie to zdarzenie, nie taka składnia, reszta OK...

Hmmm. Dziwne ale kod nie wykonuje zadania. Błędów nie ma a w komórkach wyrazy nie zostały rozdzielone

Kod we właściwym arkuszu? Zakres OK ("A1:A6")?

Już jest ok. Nie pomyślanemu że trzeba dane wpisać od nowa lub dwa razy kliknąć na komórkę. W sumie to zamknięcie i ponowne otwarcie pliku też nie wykonało zadania.

JaroFon napisał:

... W sumie to zamknięcie i ponowne otwarcie pliku też nie wykonało zadania.

Bo to dotyczy modułu Change arkusza i jeszcze warunku z "Target".
Czyli tak na wprost w mocnym uproszczeniu:
wykonaj gdy nastąpiła jakaś zmiana w arkuszu ... gdy (if) się zmieni coś we wskazanym zakresie - czyli zrób podstawienie w momencie zmiany (próby zmiany) komórek w danym zakresie.

Do przenoszenia do następnego wersu w zakresie jednej komórki podczas pisania używam lewy ALT + Enter
Kowalski ALT+Enter
Adam ALT+Enter....

Mój problem jest podobny jednak wykonać go musze trochę inaczej. Mam w excelu wyrazy takie jak ==319102=02PU02++02VW154+VO-XS6 w jednej komórce. Różnią się one końcówką po +VO, może być naprzykład -XS7, -XS8. Chcę tak długi wyraz rozdzielić do następnego wersu po podwójnym plusie czyli żeby wyglądał w jednej komórce tak:
==319102=02PU02
++02VW154+VO-XS6

Jak najłatwiej coś takiego zrobić. Wspomnę że wyrazów tych jest ich bardzo dużo i metoda alt+enter nie jest zbyt wygodna, natomiast o VBA nie mam za bardzo pojęcia. Prosiłbym o pomoc w tym problemie