VBA Loop - split cells in different columns with custom headers row

Question

I was wondering if anybody can kindly advise on a VBA loop to to split a cell with semi-colon and line break line into multiple columns. I have been trying