Vba code to split data with delimited "," in separate rows

THANKS A LOT FRIEND & yes will not disturb you more your help is really appreciated.

BUT don't know why I got "Run Time Error for Type Mismatch" in a = Application.Index(.Value, Evaluate("row(1:" & .Rows.Count & ")"), [{85,1,75}])