Vignesh G

Macro code split a cell value with ; and insert into rows in another sheet  Sub setData() Dim insertRow As Integer     Dim srcRow As Integer     insertRow=1     row=Worksheets("Sheet1").Range("A1").End(xlDown).Row     For  srcRow=1 To row      textToSplit=Worksheets("Sheet1").Cells(srcRow,2).Value      splitList=split(textToSplit,";")      splitListLength=UBound(splitList)      For j = 1 To splitListLength+1          Worksheets("Sheet2").Cells(insertRow,2).Value=splitList(j-1)          Worksheets("Sheet2").Cells(insertRow,1).Value=Worksheets("Sheet1").Cells(srcRow,1).Value      insertRow=insertRow+1      Next j     Next srcRow End Sub