A Macro to sum up colums data monthly.?

[adbasanta]

good day!

I just want a little help on how to automate a macro that will add a value from first column to second column and display the total on second column itself and soon. I need to create a macro code because I have 700 cells and 12 rows to automate.File sample attached.
Something like this:

Please Login or Register  to view this content.

thank you!

[gazzabj]

Hopefully this is what you need...

Please Login or Register  to view this content.

[adbasanta]

Hopefully this is what you need...

Public Sub AddCols()
Dim colcounter As Integer
Dim rowcounter As Long

For rowcounter = 2 To 700
For colcounter = 2 To 12
Cells(rowcounter, colcounter).Value = Cells(rowcounter, colcounter).Value + Cells(rowcounter, colcounter - 1).Value
Next
Next


End Sub

Thank you gazzabj.

I've modified the code to something like below but I got this error "Runtype Error "13" Type Mismatch.

Please Login or Register  to view this content.

Actual data attached!

Thank you!

[gazzabj]

Thank you gazzabj.

I've modified the code to something like below but I got this error "Runtype Error "13" Type Mismatch.

Please Login or Register  to view this content.

Actual data attached!

Thank you!

Your referencing sheet21 when it should be 1?
Other than that the code works fine when I test it.

Gazza

[arlu1201]

Gazzabj,

Welcome to the forum. Please put code tags for any code that you use in future. I have done it for you this time.