Sum every individual column in sheet1 below data set after a blank row

Good afternoon,

Does anyone know of  a vba code that would do the below:

on a sheet called Stock Value Report that Sums a value of  each column K, M, O, Q, S, W,Y, Z
zack carterProject AnalystAsked:
Who is Participating?

pls try
Sub macro()

For Each Item In Array("K", "M", "O", "Q", "S", "W", "Y", "Z")
    Set Rng = Sheets("Stock Value Report").Range(Item & Rows.Count).End(xlUp).Offset(2)
    Rng.Formula = "=sum(" & Item & "2:" & Rng.Offset(-2).Address(0, 0) & ")"
End Sub

Open in new window

zack carterProject AnalystAuthor Commented:
HI Rgonzo1971,

Thank you it works its exactly what i was trying to find but couldnt through different forums.
zack carterProject AnalystAuthor Commented:
After searching different forums on google Rgonzo1971 helped resolve my issue in matter of minutes.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.