Как использовать функцию Sumifs в vba - используя критерий даты

Question

Я пытаюсь использовать функцию Sumifs в моем коде, однако один из критериев (дата - последний критерий в функции) не работает. У кого-нибудь есть какая-то идея?

И я пользуюсь возможностью, чтобы задать еще одну проблему: у меня есть диапазон с 2000 строк, и мой код вялый. У кого-нибудь есть идеи, чтобы помочь мне?

Sub ATUALIZAR()


Application.ScreenUpdating = False

'Planilha Ativa
Worksheets("TabContratos").Activate


'Count the number of rows
i = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

'The date here is 05/31/2019
j = Worksheets("VPL Mês").Cells(2, 4).Value



k = 2
Do While Not IsEmpty(Cells(k, 1))

    'Suply Date
    Cells(k, 58).Value = DateSerial(Cells(k, 8).Value, Cells(k, 9).Value + 1, "1") - 1

    'Class
    If Cells(k, 7).Value < j Then
    Cells(k, 59).Value = "-"
    Else
        If Cells(k, 7).Value <= WorksheetFunction.EoMonth(j, 12) Then
        Cells(k, 59).Value = "Circulante"
        Else
        Cells(k, 59).Value = "Não Circulante"
        End If
    End If


    'Sumifs
    Cells(k, 60).Value = WorksheetFunction.SumIfs(Range(Cells(2, 43), Cells(i, 43)), Range(Cells(2, 1), Cells(i, 1)), Cells(k, 1), Range(Cells(2, 58), Cells(i, 58)), ">" & j)


    k = k + 1
 Loop


Application.ScreenUpdating = True

End Sub