Macro or Formula to create new rows where there is multiple values attached to it

Try running this on the data sheet. A new one will be added.

Sub a()
    Application.ScreenUpdating = False
    Dim a, i As Long, j As Long, r As Long, v
    a = Range("A1").CurrentRegion.Value
    r = 1
    With Sheets.Add
        For i = 1 To UBound(a, 1)
            v = Split(a(i, 2), " ")
            For j = 0 To UBound(v)
                .Cells(r, 1) = a(i, 1)
                .Cells(r, 2) = v(j)
                r = r + 1
            Next
        Next
    End With
    Application.ScreenUpdating = True
End Sub