Splitting data in one cell into separate rows

akjha2 

Sub split_data()

Dim i, j, k As Long
Dim str() As String

Range("E:G").Clear

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

str = Split(Cells(i, 3).Value, ",")

For j = LBound(str, 1) To UBound(str, 1)
k = k + 1
Cells(k, 5).Value = Cells(i, 1).Value
Cells(k, 6).Value = Cells(i, 2).Value
Cells(k, 7).Value = str(j)
Next j

Next i


End Sub

In e.g. Excel 2013 you can run this macro when you click the button in cell I1.