Split column to separate sheets based on text value

[ziggyfo]

Hi

Could someone possibly assist me, I am trying to achieve the following.

1. The information below is raw data that is pasted in and it will look exactly like the below.
2. I want the code to look down column A and split each race into its own sheet, rename the sheet and then remove the spaces between the times
3. The data is not static and under each race their may be various amounts of entries.

eg, of how i want the information to look on each sheet is below.

Appreciate any assistance with this.

Cheers

 

[mohadin]

Hi
Try

Sub Test()
    Dim a As Variant
    Dim ar As Range
    Range("B2").Resize(Cells(Rows.Count, 1).End(xlUp).Row).Formula = _
    "=NOT(IF(OR(A2="""",ISNUMBER(FIND(""-"",A2)),ISNUMBER(FIND(""-"",A2))),""""))"
    For Each ar In Columns("b:b").SpecialCells(-4123, 16).Offset(-1, -1).Areas
        a = ar.Resize(ar.Rows.Count + 1)
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = ar(1)
        With Cells(1, 1).Resize(UBound(a))
            .Value = a
            .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        End With
    Next
    Sheets("Sheet1").Columns(2).ClearContents
End Sub