single cell split in two cell and loop until find cell empty help in vba

[manojxls]

Hi Team, i need help on below sample excel vba
i have data in A column with two word in same cell i need to split in to two cell also amount need to divide half these should done until a column find blank cell.
ithe result should show as shown as right.

costcentre1 & costcentre2	400		costcentre1	=400/2
costcent4 & costcentr25	500		costcentre2	=400/2
			costcent4	=500/2
			costcentr25	=500/2

 

[alansidman]

thanks for the feedback.