Copy, paste, transpose 4 cells delete and repeat

I have a number of addresses in a single column (column A)
They are in this format:

Business Name
Addresss
City, State, Zip
(555)555-5555

There are a few thousand like that. What I need to do is to be able to copy it, past special and transpose it into the next available row. Then I want to delete those original four cells, and repeat.
Another way to describe what I am trying to do:
Make cells a1-a4 end up in b1- e1. Delete the contents of a1-a4 and have the next cells shift up into a1-a4. Copy, paste, transpose into b2-e2. Repeat.

I have had limited success recording a macro for this. Basically, it just copies into b1-e1, but then the next record is copied on top of it.

Any ideas?
I can provide anything necessary to make this work.

(I attached a spreadsheet to show what I'm looking to accomplish. Just make those cells transpose and end up in a row).