Macro to format data from one column to multiple columns

Originally I was manually entering data from a website into excel. It was time consuming and frustrating. Then I discovered Excel's web query tool. I used the web query tool and was able to scrape all the data into column B. It now looks something like this:

	Event Name
	Date
	Name(s)
	Number

REPEAT

I was able to use a macro I found on microsoft support to remove other superfluous data that came in with the scrape and then delete the empty row and shift up. I only need the event name, the date, and the Name(s) from that data. I was not able to adjust the macro to remove the cells with random numbers though.

Sub DeleteCells3()

    Dim rng As Range, i As Integer

    'Set the range to evaluate to rng.
    Set rng = Range("A1:A10")

    'Loop backwards through the rows
    'in the range that you want to evaluate.
    For i = rng.Rows.Count To 1 Step -1

        'If cell i in the range contains an "x", delete the entire row.
        If rng.Cells(i).Value = "x" Then rng.Cells(i).EntireRow.Delete
    Next

End Sub

What I'd like is for the table to look like this:

Date	Event Name	Name(s)
Date	Event Name	Name(s)

Can anyone help me with creating a macro that will go though and format the table the way I have shown? Thanks for any advice!

Thank you! Exactly what I needed!!! Marked as solved and repped you. I really can't say thank you enough you have just saved me an enormous amount of time.