Rows To Column Data

Our Excel spreadsheet organizes names, addresses, and the amount of money per account in the following manner:

Column A Column B Column C ....Column X
Row 1:"Account Name" "Name of Company" "Money in Accout", etc.
Row 2: "Address of company"
Row 3: "PO box"
Row 4: "More information or State and Zip Code"
Row 5:"Account Name" "Name of Company" "Money in Accout", etc.
Where the "Name of COmpany", "PO Box", "More information or state and Zip code" are all located in Column B.

We have anywhere from twenty to a thousand or so names organized like this going down a spreadsheet. In addition, the number of rows underneath a particular Company varies.

So, I was wondering if anybody knows if a VBA program could be written where the code would move the cells that are put under the name of the company (i.e., Row 2, Column B; Row 3 Column B) so they'd appear only on row 1? Ideally, this program would know when to start putting the information on, for example, row 1 or row 5 because there is an account name in Column B.