Private Sub UserForm_Initialize()
Dim i&, j&, k&
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
Select Case Cells(i, 3)
Case "B101"
j = j + (-1 * (Cells(i, 7) = "YES"))
Case "B102"
k = k + (-1 * (Cells(i, 7) = "YES"))
End Select
Next
TextBox1 = j
TextBox2 = k
End Sub