Excel VBA - Copy from one sheet to another with conditions

[servox]

Hi All

I'm trying to create a loop that will copy data from one sheet and paste into another sheet with conditions based on the value of that cell.

so I have 15 bingo number per row plus the ticket number

R1	R1	R1	R1	R1	R2	R2	R2	R2	R2	R3	R3	R3	R3	R3	TICKET
3	16	53	72	82	19	23	31	68	83	9	29	36	42	55	1
4	10	57	71	88	6	39	43	65	74	12	28	45	58	79	2
2	41	52	66	80	14	24	33	78	87	26	44	56	69	89	3

and need to copy them to sheet2 and place them in the correct column based on their value.

sheet2 has columns

1-9

10-19

20-29

30-39

40-49

50-59

60-69

70-9

80-90

repeated 3 times for the data from R1, R2 and R3 from sheet 1

so hopefully you understand what my goal is and the end result show look like this on sheet2

1-9	10-19	20-29	30-39	40-49	50-59	60-69	70-9	80-90	1-9	10-19	20-29	30-39	40-49	50-59	60-69	70-9	80-90	1-9	10-19	20-29	30-39	40-49	50-59	60-69	70-9	80-90	number
3	16	0	0	0	53	0	72	82	0	19	23	31	0	0	68	0	83	09	0	29	36	42	55	0	0	0	00001
04	10	0	0	0	57	0	71	88	06	0	0	39	43	0	65	74	0	0	12	28	0	45	58	0	79	0	00002
02	0	0	0	41	52	66	0	80	0	14	24	33	0	0	0	78	87	0	0	26	0	44	56	69	0	69	00003

so hopefully someone can help point me in the right direction

thanks in advance