VBA hjælp

Jeg har et ark, hvor jeg skal finde, hvor mange bachelor og kandidatstuderende, der er for hvert fakultet.
Jeg har nummeret på hvert fakultet i kolonnen I, hvor numrene er fra 1-5. Så i kolonnen J, står der der om, den pågældende elev er bachelor eller kandidatstuderende. Jeg har brugt koden:
Application.WorksheetFunction.CountIf(Range("J2:J18288"), "Bachelor")
Application.WorksheetFunction.CountIf(Range("J2:J18288"), "Kandidat")
Men den finder kun, hvor mange bachelor og kandidatstuderende der er i alt, og jeg skal finde det for hver fakultet. Hvilken kode kan jeg bruge i VBA til at finde det?
Tak på forhånd