Hello,
There are a few of modifications required to handle your latest request:
1. Redesign the Movedata() macro
2. In cell B10 add formula
... and copy it down till cell B21
3. Design the Workbook_Open() macro to handle your start and end times ...
4. Adjust the formula in cell R22 to get the actual Average