[vba]
Sub PutDataInColsPlease()

'dimension variables
Dim WS As Worksheet, wsTarget As Worksheet
Dim c As Range, rngLook As Range
Dim i As Long, iRow As Long, pos As Long, Pos2 As Long

Set WS = ActiveWorkbook.Sheets("Sheet1") 'set as desired
Set wsTarget = ActiveWorkbook.Sheets("Sheet2") 'set as desired


'assumes data starts in A1
Set rngLook = WS.Range("A1", WS.Cells(Rows.Count, "A").End(xlUp))

With wsTarget

'setup destination sheet
.Cells.Clear
.Range("A1:K1") = Array("Full Name", "Level", "Phone", "Fax" _
& "Mobil", "Work Email", "Home Email", "Web Page URL", "Address", "State", "Work Area")

'perform work
For i = 1 To rngLook.Cells.Count Step 12 'assuming 11 rows of data each with 1 space..
lRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
For x = 1 To 11
strText = WS.Cells(i - 1 + x, 1)
wsTarget.Cells(lRow, x) = Right(strText, Len(strText) - WorksheetFunction.Find(":", strText) - 1)

Next x
Next i

End With
End Sub

[/vba]
This code does it. Assumes the data starts in Cell A1 of sheet 1.

The attached is a sample with code and a button to run it. If you want, just copy your 1 column of data into Sheet 1 column A and hit the button. (First "Name" entry must be cell A1)

Also, unless there is a : after each rows topic, it will fail... (In your sample, WEBPAGE and SUBURB STATE do not have : markings to separate the data...but I assume your real data does..