Option Explicit
Sub TT()
Dim a, b, t, i&, j&, u&, x&
a = [a1].CurrentRegion.Value
ReDim b(1 To UBound(a))
For i = 1 To UBound(a)
u = UBound(b)
t = Split(a(i, 1), " ")
ReDim Preserve b(1 To UBound(b) + CLng(t(1)))
For j = 1 To CLng(t(1))
x = x + 1
b(x) = t(0)
Next
Next
[c1].Resize(UBound(b)) = Application.Transpose(b)
End Sub

Sub TT()
Dim a, b, t, i&, j&, x&
a = [a1].CurrentRegion.Value
ReDim b(0)
For i = 1 To UBound(a)
t = Split(a(i, 1), " ")
ReDim Preserve b(1 To UBound(b) + CLng(t(1)))
For j = 1 To CLng(t(1))
    x = x + 1
    b(x) = t(0)
Next
Next
[c1].Resize(UBound(b)) = Application.Transpose(b)
End Sub