I did cheat however
I used the record actions for the following example data set which extends into the 1000s:

Follow Stephen
Stephen Andresres •*Company Name: Software Co.
Description: employees indirect spend
Size: 35 employees,

Follow Johan
Website: kingkiioa.com
Size: 25 Employees
For more info call 65.96566.66666
Telephone: 0177 g44 4455

Tom Holder*•*Company Name: Barracks
Description of Service: Online Backup, Virtual Recovery, Replication, Virtual Private Cloud computing
Size: 18 Employees
website: www.thebarracks.com


I need to transpose each "set" into its own row and then skip down to the next "set"
So I recorded this:

SHIFT CTRL DOWN
CTRL C
RIGHT ARROW
ALT E S E ENTER
LEFT
CTRL DOWN
CTRL DOWN

And here's the output - which doesn't work properly:
I would like the data to be transposed into column B and one cell to the right of the first piece of data (usually name) in each set.

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("B252").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A252").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
End Sub