I need a VBA to select and average cells in a loop

[Linkey]

Hello,

I need a VBA code that can select 30 cells at a time from worksheet 1 and paste the average of those cells into a table in worksheet 2

This is a dataset of temperature measurements that were taken at 1 minute intervals for 14 days which I need to get the average of each 30 minute interval for. I tried using the Macro recorder but couldn't get it to average the consecutive intervals. The idea of manually going down 20161 rows is horrifying

Here is what the data looks like - it's pretty basic
Sheet 1

Sheet 2

I've been trying to code a sub loops () but I have no experience in coding so it keeps on giving errors or not doing the right thing

Any help would really be appreciated!!

 

[Norie]

You could do this with a pivot table with Time(min) as a row value grouped by 30.

 

[Linkey]

You could do this with a pivot table with Time(min) as a row value grouped by 30.

I didn't think of that, played around with it and figured it out in the PivotTable. Thank you!