pervich = Application.SumIf([что сравниваем]!A:A, a2, [что сравниваем]!B:B)

pervich = Application.SumIf(Range("A:A"), a2, Range("B:B"))

Sub Sravnit()
    ' откуда начать цикл- номер первой строчки данных
    begin_begin = 5
    ' номер столбца с данными, с которыми сравнивают массив данных
    nomerrr = 2
    ' счетчик количество строк на результирующем листе- оно вообще -то меньше числа строк исходного
    j = 1
    For i = begin_begin To Worksheets("с чем сравниваем").Rows.Count
        a2 = Trim(Worksheets("с чем сравниваем").Cells(i, nomerrr).Value)
        pervich = Application.SumIf(Worksheets("что сравниваем").Range("A:A"), a2, Worksheets("что сравниваем").Range("B:B"))
        okonch = Application.SumIf(Worksheets("что сравниваем").Range("A:A"), a2, Worksheets("что сравниваем").Range("C:C"))
        If (pervich > 0 Or okonch > 0) Then
            Worksheets("Результат").Cells(j, 1).Value = a2
            Worksheets("Результат").Cells(j, 2).Value = pervich
            Worksheets("Результат").Cells(j, 3).Value = okonch
            j = j + 1
        End If
    Next i

End Sub