zählen mit 2 kriterien

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DestSheet As Worksheet
Dim SourceSheet As Worksheet
Dim sRow As Long 'row index on source worksheet
Dim dRow As Long 'row index on destination worksheet
Dim sCount As Long
If Target.Cells.Address  "$E$4" Then Exit Sub
Set DestSheet = Worksheets("Summary")
Set SourceSheet = Worksheets("Risk Register")
sCount = 0
dRow = 17
With DestSheet
.Range("D18:H" & IIf(IsEmpty(.Cells(.Rows.Count, 4)), .Cells(.Rows.Count, 4).End(xlDown) _
_
.Row, .Rows.Count)).ClearContents
End With
With SourceSheet
For sRow = 1 To .Range("a65536").End(xlUp).Row
'use pattern matching to find project "Changing the world" anywhere in cell
If .Cells(sRow, "a") Like Target Then
sCount = sCount + 1
dRow = dRow + 1
'copy cols A,F,E & D
DestSheet.Cells(dRow, "d") = .Cells(sRow, "b")
DestSheet.Cells(dRow, "e") = .Cells(sRow, "f")
DestSheet.Cells(dRow, "f") = .Cells(sRow, "s")
DestSheet.Cells(dRow, "g") = .Cells(sRow, "j")
DestSheet.Cells(dRow, "h") = .Cells(sRow, "r")
'Range("Summary_Selected").ClearContents
End If
If .Cells(sRow, "a") Like Target Then
Next sRow
End With
Application.ScreenUpdating = False
End Sub

Bis hierher funktioniert alles prima. Nur haben diese Projektrisks auch Kategorien und ich muß eine Auswertung nach ihnen machen. D.h. in Tabelle Summary in den oberen Bereich (also genau zw. H4 und H13 habe ich die Kategorien, der Code sollte auf I4:I13 zählen, wieviele Risks es gibt, die A. zu einem bestimmten Projekt gehören (unter Target E:4) und B. die aber auch zur Kategorie in H4, dann H5, dann H6, etc. Kann man das machen? Kann der Code quasi nach diesen 2 Kriterien in Risk Register suchen und zählen?
Bin für eure Hilfe sehr dankbar!!!
Thol