Need help with VBA script for conditional formatting

[qwertybirdy]

I would really appreciate some help writing a script in the module of the file I have attached.

Write a sub that colors the interior of every other row gray. Only color the data area.
Write a sub that examines each region's quarterly sales fluctuation. For each region, if the sales increase consecutively for 3 quarters, color the region label green; if the sales decrease consecutively for 3 quarters, color the region label red.

So far for the first sub I have the following code but it is really messy and far from simple:

Sub Macro1()
'
' Macro1 Macro

Range( _
"B2:M2,B4:M4,B6:M6,B8:M8,B10:M10,B12:M12,B14:M14,B16:M16,B18:M18,B20:M20,B22:M22,B24:M24,B26:M26,B28:M28,B30:M30,B32:M32,B34:M34,B36:M36,B38:M38,B40:M40" _
).Select

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1


***THANK YOU FOR ANY KIND OF GUIDANCE OR HELP. I REALLY APPRECIATE IT. I AM TRYING TO LEARN MORE ABOUT VBA.***