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

Hi,

In your example you could use the following code to split the cell B3 into a range starting at C7

Sub a()

Dim sInput As String
Dim sOutput() As String

sInput = Range("B3").Value
sOutput = Split(sInput, ",")

Range("C7").Resize(UBound(sOutput) + 1, 1).Value = Application.Transpose(sOutput)

End Sub

Popluating the adjacent cells should be straightforward from there.