Insert array function in macro

Ok so I have figured out the first part of my macro to do formula in a added cell.

Sub Enter_Formula()
Range("H2").Formula = "=SUM(B2:G2)"
End Sub

But need help with this one.
I am trying to get a macro to do the ODD/EVEN PATTERN for my numbers with this formula.



as a macro. So when I click my insert button everything is done automatically, then all I have to do is input the data in to the cells.

Can someone help??

I have attached the workbook

Thank you,