This is the code I am working with and I am very confused on how to insert this into an averaging Formula. I am new to using VB, What I am trying to achieve is each data sheet it is ran on, the data might shift several rows, but I need to pull the same series out for each sheet ex: 22.5 hours +3,-3 hours for 7 data points. I need the 7 data points averaged per sheet. Is there a way to do this?

Windows(PRGNM). Activate
Sheets("Raw").S elect...