Private Sub CommandButton1_Click()
Dim sL$, sLL$, tL, i%, r As Range, rr As Range
sL = TextBox1
If sL = "" Then Exit Sub
tL = Split(sL, ","): [A1:A65536].Clear
Set r = Range("A2:A" & tL(UBound(tL)))
[Z1:Z65536].Clear: [A1] = "ML": [Z1] = "ML"
[Z2].Resize(UBound(tL) + 1) = Application.Transpose(tL)
Set rr = [Z1].Resize([Z65536].End(3).Row)
r.Formula = "=ROW()": r.Offset(-1, 0).AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=rr, Unique:=False
Unload Me
End Sub