VBA code to execute for next row

Hi all,
I have written VBA code using the "Do...Loop Until" statement for a range of 7 adjacent numbers in row A. When executed it returns a value in a separate cell. How can I get my VBA code to automatically move on to the next range of 7 adjacent numbers in row B and execute, and so forth, for row C, D, E, etc?

Thank you.

Activecell.Offset(,1).select then rerun your Do Loop instructions again