VBA Check if value exists from one sheet then copy into row on sheet 2

[mac1245]

Hello I need help creating a VBA code as follows -


Sheet 1

Color	Food	Date	Orders	Date	Orders	Date	Orders
Red	Coke	2001	7	2002	8	2003	8
Black	Square	2001	6	2002	-	2003	3
Green	Grapes	2001	-	2002	-	2003	-

Create Sheet 2
There is a template I need to follow for sheet 2 (need 6 rows for all, first two row has the same info, then middle rows is where the number of orders go in if there is an order for that year and then lastly 0 for all rows below) (Also if there are no orders of a particular type, just create one entry with a 0)

Red_Coke	xyz # (Default - same for all)	0
Red_Coke	abc # (Default - same for all)	5
Red_Coke	2001	7
Red_Coke	2002	8
Red_Coke	2003	8
Red_Coke	0	0

Black_Square	xyz # (Default - same for all)	0
Black_Square	abc # (Default - same for all)	5
Black_Square	2001	6
Black_Square	2003	3
Black_Square	0	0
Black_Square	0	0

Green_Grapes	xyz # (Default - same for all)	0
Green_Grapes	xyz # (Default - same for all)	5
Green_Grapes	2001	0
Green_Grapes	0	0
Green_Grapes	0	0
Green_Grapes	0	0

 

[mac1245]

Any help would be appreciated. I started out with the initial part but am running into confusion with the for loop and just got stuck on how to proceed.