Soru Kritere göre Listele

[sirkülasyon]

Set Ar = Sheets("ARŞİV")
Application.EnableEvents = False
ComboBox1.Clear
For a = 2 To Ar.Cells(Rows.Count, "B").End(3).Row
    If WorksheetFunction.CountIf(Ar.Range("B2:B" & a), Ar.Cells(a, "B")) = 1 Then
        ComboBox1.AddItem Ar.Cells(a, "B")
    End If
Next
Application.EnableEvents = True
If ComboBox1.ListCount > 0 Then ComboBox1.Value = ComboBox1.List(0)

Yukarıda ki kod ile B sütununda yer alan personel isimlerini combobox1' e alıyorum. Lakin bir kriter eklemem lazım. ARŞİV sayfasının "H" sütununda AKTİF ibaresi olanları listelemek için yardımcı olabilir misiniz?