Insert Appropriate Number Of Blank Spaces In Cells B Through H

I am having trouble trying to figure out how to insert blank cells:

I need to insert cells, in columns B through H, equal to the number of returned IDs in column B.

Please take a look at the spreadsheet I attached.

Here is the code I am using to separate the IDs in column B so that I get one ID in each A cell. When I do this it separates them great, but then I have to manually go in and insert cells down so that the rest of the rows match up with the right ID.

Sub Macro1()
Dim fromCol As String
Dim toCol As String
Dim fromRow As String
Dim toRow As String

[Code] .....

sample of separate.xlsm