No. of Row = No. of inputs

Originally Posted by apo

Here's another for fun..

Private Sub CommandButton1_Click()
    Dim x, y
    x = Split(Replace(Join(Application.Transpose([A1].CurrentRegion.Columns(1)), vbCrLf), vbCrLf, Space(3)), Space(1))
    With [C3].Resize(UBound(x) + 1)
        .Value = Application.Transpose(x)
        y = .Replace("*", "TC")
    End With
End Sub

for fun.. but for learning purposes also! very nice code!