Split up a cell by every ;

[gandreso]

I got a problem which is outside of my comfortzone so I was thinking about asking for help here. I got a datafile which is attached below with a examplefile as how the data can look like. In the first sheet is how the data looks like and the second sheet is instead how I would like to have the data after my macro.

Every datarow has all their data in one row which is the problem. For example A5 might look like this; 860528306;201513;KXDPBO08;2015151;VP11K ;53;

What I want to do is the following?
From row 5 to the lastrow, I want to split up the first column (A5,A6,A7...and so on) with every ; character.
Therefore the example of 860528306;201513;KXDPBO08;2015151;VP11K ;53; would be the following:

Cell("A2")=860528306
Cell("B2")=201513
Cell("C2")=KXDPBO08
Cell("D2")=2015151
Cell("E2")=VP11K
Cell("F2")=53

As you can see the last ; character is just an end of the data. There might also be spaces in the data so I would have to trim the cells.
I haven't done any code with splitting up cells so I would be very happy if anyone could help me.