Selecting Articles with quantities in a row till the last filled column and put them below eachother on sheet 2 depending on the value in column B

[Jan van der]

Hello,

I need an vba code for an database as in the example

I have an sheet with a lot of products now it is to column R but that can be also to column AA or XX.
column A, is for identivication we do nothing with that.
column B, when there is an 1 in that row then the row must be copie to sheet 2 including the Qua of that row starting at column C until there is an blank cell.
The cells can have letters and or numbers.
the rows with a zero in column B must be passed.

I hope someone can help me with this

Parts.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S
1	Code	Selected	Part nb	Qua	Part nb	Qua	Part nb	Qua	Part nb	Qua	Part nb	Qua	Part nb	Qua	Part nb	Qua	Part nb	Qua
2	Code1	1	Oil	2	Sugar	4	Leaves	3	Posts	2	125151	10	Candy	2	Cake	2
3	Code2	0	Sugar	4	Leaves	3	Posts	2
4	Code3	0	Posts	2	125151	10	Candy	2	Cake	2	Sugar	4	Leaves	3	Posts	2	Cake	2
5	Code4	1	Posts	2
6	Code5	0	Leaves	3	Posts	2	125151	10	Candy	2	Cake	2
7	Code6	1	Candy	2	Cake	2	20A	4	Leaves	3
8	Code7	0	Leaves	3
9
10
11
12
13
14
15	Sheet 2
16
17	Oil	2
18	Sugar	4
19	Leaves	3
20	Posts	2
21	125151	10
22	Candy	2
23	Cake	2
24	Posts	2
25	Candy	2
26	Cake	2
27	20A	4
28	Leaves	3
29
30
31
32
33
Blad1

 

[Jan van der]

I see that i made an mistake. because cell B4 is an 0 but that should be an 1
Sorry, but can anyone help me with this problem.

Thanks