Hi,
So it does look like we are kind of merging the cell in 
.Item(AB1/12) = AB1/12 & ";" & 7/1/2012.
One more question: what does 
.Cells(i + 1, 1).Resize(, 2) = Split(a(i), ";")
does?

I always have problems visualizing how Resize() function does. I understand that we are outputting the results starting at A2.

Thanks