Здравствуйте! Вам поможет создание макроса, который будет автоматически перебирать все листы, и если лист попадает под условие по дате, то берет данные из него и добавляет на лист отчета в нужные ячейки. Если еще актуально, пишите постараюсь помочь.

Воспользуйтесь формулой для вычисления среднего значения по условию. Например: =СРЗНАЧЕСЛИ(B2:B9;">0") , где В2:B9  — диапазон для которого вычисляется среднее;
">0" — условие — число должно быть больше нуля.

Private Sub tbtnToExcel_Click(sender AsSystem.Object, e AsSystem.EventArgs) Handles tbtnToExcel.Click

Dim xl As Microsoft.Office.Interop.Excel.Application ' переменная для создания экземпляра Excel

xl = New Microsoft.Office.Interop.Excel.Application 'создание экземпляра Excel

xl.Visible = True

Dim wb As Microsoft.Office.Interop.Excel.Workbook ' переменная для создания Workbook

wb = xl.Workbooks.Open(Application.StartupPath & "\log.xls") '(«d:\temp\log.xls») открытие файла

Dim i As Integer= 1

For Each rw As DataGridViewRow In dgvOutMailLog.Rows ' выводим в Excel строки DataGridView

With xl.Workbooks(«log.xls»).Sheets(1)

.cells(i + 4, 1).value = rw.Cells(0).Value ' Регномер

.cells(i + 4, 2).value = rw.Cells(1).Value ' Тема

.cells(i + 4, 3).value = rw.Cells(2).Value ' Кому

.cells(i + 4, 4).value = rw.Cells(3).Value ' Дата

.cells(i + 4, 5).value = rw.Cells(4).Value & " "& rw.Cells(5).Value & " "& rw.Cells(6).Value ' Фамилия Имя Отчество

.cells(i + 4, 6).value = rw.Cells(7).Value ' Отдел-Отправитель

i = i + 1

End With

Next

If Not IsNothing(wb) Then' удаление экземпляра книги

wb = Nothing

GC.Collect()

End If

If Not(IsNothing(xl)) Then' удаление экземпляра Excel (иначе будет висеть процесс Excel даже после закрытия

xl = Nothing

GC.Collect()

End If

End Sub