Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo:

Private Sub cbo_Categoria_DropButtonClick()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BD")
Dim i As Integer
Dim n As Integer

n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0)
Me.cbo_Tipo.Clear
For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn)
Me.cbo_Tipo.AddItem sh.Cells(i, n).Value

Next i


Tengo error en la linea n; porque el valor de cbo_Categoria es "", osea vacio.

como puedo solucionarlo.?