Не видя точно, что вы, после того как я создал приблизительное предположение, которое будет ждать 5 минут после запуска, затем он добавит указанный вами диапазон и выведет его в ячейку A1. Затем вам нужно будет изменить это в соответствии с вашими потребностями.
Sub CalcRange()
Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets("sheet1")
Application.Wait Now + TimeValue("05:00:00")
Range("A1").Select
ActiveCell = "=SUM(T2:T36)"
End Sub