Ошибка Excel 1004 «Невозможно получить свойство SumIfs класса WorksheetFunction», появляющееся непоследовательно

Question

Опция явная

Sub UpdateWeeklySummary() Затемнять ежедневноCountSheet As Worksheet DimеженедельноSummarySheet As Worksheet DimprocessRange As Range DimprocessCell As Range Dim неделяДиапазон как диапазон Dim неделяЯчейка как диапазон Dim текущая неделя Как целое число Dim еженедельноСчитать как целое число

      Set dailyCountSheet = Worksheets("Daily Count")
Set weeklySummarySheet = Worksheets("WeeklySummary")

'Loop through each row in the process range
Set processRange = dailyCountSheet.Range("A2:A5")
For Each processCell In processRange
    'Loop through each column in the week range
    Set weekRange = dailyCountSheet.Range("B1:F1")
    For Each weekCell In weekRange
        'Calculate the week number for the current column
        currentWeek = WeekNum(weekCell.Value)
        
        'Calculate the total count for the current week and process
        weeklyCount = Application.WorksheetFunction.SumIfs(dailyCountSheet.Range("B2:F5"), dailyCountSheet.Range("A2:A5"), processCell.Value, dailyCountSheet.Range("B1:F1"), ">=" & weekCell.Value, dailyCountSheet.Range("B1:F1"), "<=" & DateAdd("d", 6, weekCell.Value))
        
        'Update the corresponding cell in the weekly summary table
        weeklySummarySheet.Cells(processCell.Row, currentWeek + 1).Value = weeklyCount
    Next weekCell
Next processCell

MsgBox "Weekly summary updated successfully."

Конец субтитра

Функция WeekNum(dt As Date) Как целое число WeekNum = DatePart("ww", dt, vbMonday) Конечная функция

Мне нужно получить данные из таблицы ежедневного подсчета и рассчитать каждую неделю в сводном еженедельном листе.