Split in row and auto insert row as per requirement

[Vishaal]

Hi, we have the following sheet where we want to split in row wise instead of column wise, can we do this from macro or any formula, its a large database

query sheet

S.No.	Code	Name	Price	Total	Qty
1	8185,7965,8175	General,hest254,tinkvol1	140,320,280	105,240,210	1,1,1
2	6594	jhset	140	105	1
3	7652,8795,8473,8265	rosey,randy-1,dom(vol1)(ed-1),Series test	320,280,140,295	240,210,105,221	1,1,1,1

required sheet

S.No.	Code	Name	Price	Total	Qty
1	8185	General	140	105	1
2	7965	hest254	320	240	1
3	8175	tinkvol1	280	210	1
4	6594	jhset	140	105	1
5	7652	rosey	320	240	1
6	8795	randy-1	280	210	1
7	8473	dom(vol-1)(ed-1)	140	105	1
8	8265	Series test	295	221	1

If there is no formula, kindly help with VBA please

 

[Alex Blakenburg]

Strange it is working fine for me.
Is your file an XLSM file ?

This shouldn't make any difference but if that is the line it goes to when you hit debug, try adding .Value2 into the line.

Sheets("ReqSheet").Range("A2").Resize(nxtRow - 1, UBound(outarr, 2)).Value2 = outarr

If it still doesn't work then before that line put the following and show me what appears in the immediate window

    Debug.Print "nxtRow " & nxtRow
    Debug.Print "UBound(outarr, 2)) " & UBound(outarr, 2)
    Debug.Print Sheets("ReqSheet").Range("A2").Resize(nxtRow - 1, UBound(outarr, 2)).Address

If none of the above work or provide any insights can you share your file using dropbox, google drive or another sharing plaform (allow access to anyone with the link)