Need to Sum Columns within a Column!

[FinancialAnalystKid]

I have about 30,000 rows of raw data.

There are rows of data per employee and then seperated by blank columns.

I need to total a column for each employee section.

I put in a TOTAL cell at the bottom of each employee section but summing each is tedious and will take forever!

I need a macro to go down column "K" find the word "TOTAL" and to the right of that cell (Column L) sum just that section.

So basically currently there is a cell labeled TOTAL on K15. on L15 I need it to sum(L2:L14)

The next TOTAL is on K27. on L27 I need it to sum(L17:L26)

...and so forth. Does this make sense?

Any help is MUCH appreciated.

 

[FinancialAnalystKid]

You got it! Perfect and well done!

Thanks a bunch!

There should be a tip jar here at the forums.

FAK

 

[MrKowz]

We're all volunteers. The tip jar is paid with a simple thanks. Cheers!

 

[jasonb75]

Bit late, but I'll throw it in anyway.

Sub test()
    Dim lastrw As Long
        lastrw = Range("K" & Rows.Count).End(xlUp).Row
With ActiveSheet.Range("$K1:$K" & lastrw)
    .AutoFilter Field:=1, Criteria1:="Total"
        Range("$L2:$L" & lastrw).SpecialCells(xlCellTypeVisible).Select
    .AutoFilter
End With
    Application.SendKeys ("%=")
End Sub

Not used sendkeys before so it took me nearly an hour to figure out that it only works when you execute the code from excel, but not from the code editor

 

[FinancialAnalystKid]

Thanks - that worked too.