Como estás, tienes que incrustar un combobox en Excel en la ceda que quieras y agregarle el siguiente código, yo te pase el mail el archivo con la solución, vi tu video y tu quieres que tener un combobox en la hoja por lo que entiendo no un formulario como en ejemplo que te pase, en el mail me dices un formulario y en el video una lista desplegable en tu hoja bueno yo te lo hice de la última forma, con una lista desplegable en la hoja de Excel
Private Sub ComboBox1_Change()
Dim uf, ufcat, filadir, filacat, contad, contap, contadc, contamc As Integer
contad = 0
contap = 0
contadc = 0
contamc = 0
uf = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Range("N" & Rows.Count).End(xlUp).Row
listado = "N12:N" & uf
ComboBox1.ListFillRange = listado
perfind = ComboBox1
ufcat = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Range("H" & Rows.Count).End(xlUp).Row
Range("r8:u8") = Clear
For i = 9 To ufcat
a = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 6)
If a = perfind Then c = verdadero
If a = perfind Then contad = contad + 1
If Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 7) = perfind And Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 8) = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(7, 17) Then contap = contap + 1
If Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 7) = perfind And Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 8) = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(7, 18) Then contadc = contadc + 1
If Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 7) = perfind And Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(i, 8) = Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(7, 19) Then contamc = contamc + 1
Next i
Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(8, 18) = contad
Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(8, 19) = contap
Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(8, 20) = contadc
Sheets("INVESTIGACIÓN DIAGNÓSTICA").Cells(8, 21) = contamc
End Sub