Random Sampling and averaging using VBA code

[rahulk]

In the attached excel file, I have raw data which needs to be randomly sampled.
1979-2008

Here in the excel I am computing averages. What I need to do is incorporate a formula if a cell is selected.

I want the data to move up and select seven 12 month periods i.e. if Random cell is May 2000(in excel sheet 2 - H23) then the seventh period should be June 1993 (in excel sheet 2 - I17). the simulation should average all the cells in between, rows and columns.


I have been trying and trying but can't seem to get it to work. Please help Thanks
Rahul