Reformat Spreadsheet

Try this macro

Sub Test()
Dim N As Long
Dim Counter As Long
Dim ColumnCounter As Long

For N = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Left(Cells(N, 1), 5) = "OWNER" Then
        Counter = Counter + 1
        ColumnCounter = 3
        Do While Left(Cells(N, 1), 7) <> "BUILDER"
            Cells(Counter, ColumnCounter) = Cells(N, 1)
            N = N + 1
            ColumnCounter = ColumnCounter + 1
        Loop
        
        ColumnCounter = 8
        Do While Left(Cells(N, 1), 5) <> "PHONE"
            Cells(Counter, ColumnCounter) = Cells(N, 1)
            N = N + 1
            ColumnCounter = ColumnCounter + 1
        Loop
    End If
Next N
End Sub

Open up the VBA editor by hitting ALT F11

Insert a new module by hitting Insert - Module

Paste the macro into the empty sheet

Hit ALT F11 to get back to the worksheet.

Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007/2010.