Multipying columns and rows using VBA

Hi All,

I currently need help with the following problem.

This is a fairly simple problem that can be solved with a general excel formula, but if I drag the formula across the column there's a lot of tidying up to do to make it function for all cells.

so my formula is based on cell E6 (shown in the attached picture): =4*(C7*E3)+2*(C8+E4)
this formula just computes the area based on how many items I have.

is there a way I can make this into a VBA function that will compute the area in cells E6 to CV6, E11 to CV11, E16 to CV16 etc all the way down to E182 to CV182?

As you can see I've started using basic excel cell formula, but to fix the formula for every cell after dragging it become long. The highlighted cells is where I want to the cell to calculate the area

Thanks would greatly be appreciated

can you attach a sample workbook.
also, enter few results [manually calculated].

use this in E6 and drag it across and down.

HTML Code: 

MOD function gives you remainder after a division operation.
So, in this case ROW number minus one is divided by 5.
I am subtracting one because the row numbers are 6, 11, 16 etc.
Then I am testing to see if remainder is 0 [it means the value is multiple of 5].