Skip a column and and add - VBA

[adnan1975]

Hello,
i am trying to do a simple task with VBA but code is not working. I need to add Column N,Q,T.... In other words every 3 column
i have the following code

For lrow = 7 To 15
For xcol = 14 To 78 Step 3
'sumx = 0
sumx = sumx + Cells(lrow, xcol).Value
Next xcol
md.Cells(lrow, 79).Value = sumx
Next lrow

The macro runs but it doesn't give me the right answer. for example the answer in column 79 or 'CA' should be following

1
5
39
1
1
4
36
0

<tbody>
</tbody>

But macro gives the following answer

1
6
45
46
47
51
87
87

<tbody>
</tbody>

which means it adds each row from top to bottom in column 79. I am not sure how to fix it.
Any help is much appreciated.

Thanks

 

[Fluff]

Try moving the sumx=0 line

For Lrow = 7 To 15
   For xCol = 14 To 78 Step 3
      sumx = sumx + Cells(Lrow, xCol).Value
   Next xCol
   md.Cells(Lrow, 79).Value = sumx
   sumx = 0
Next Lrow

 

[adnan1975]

Try moving the sumx=0 line

For Lrow = 7 To 15
   For xCol = 14 To 78 Step 3
      sumx = sumx + Cells(Lrow, xCol).Value
   Next xCol
   md.Cells(Lrow, 79).Value = sumx
   sumx = 0
Next Lrow

Thanks so much. It worked.

 

[Fluff]

You're welcome & thanks for the feedback