Olá. Já pesquisei milhares de posts no fórum. Mas meu problema é bem específico.
Estou usando uma lista de estados e cidades, apenas para exemplificar. Peguei do link https://www.youtube.com/watch?v=ReSKQ8o-tQY
e aprendi este código:

Private Sub cmb_UF_Click()
cmb_cidade.Clear
estado = cmb_UF
linha = 2
Do Until Sheets("cidades").Cells(linha, 1) = ""
If Sheets("cidades").Cells(linha, 2) = estado Then
cmb_cidade.AddItem Sheets("cidades").Cells(linha, 3)
linha = linha + 1
Else
linha = linha + 1
End If
Loop
End Sub

Private Sub UserForm_Initialize()
linha = 2
Do Until Sheets("estados").Cells(linha, 1) = ""
cmb_UF.AddItem Sheets("estados").Cells(linha, 1)
linha = linha + 1
Loop
End Sub

Mas na minha planilha não vou usar userform.
Então fiz uma adaptação:

Private Sub cmb_UF_Click()
cmb_cidade.Clear
estado = cmb_UF
linha = 2
Do Until Sheets("cidades").Cells(linha, 1) = ""
If Sheets("cidades").Cells(linha, 2) = estado Then
cmb_cidade.AddItem Sheets("cidades").Cells(linha, 3)
linha = linha + 1
Else
linha = linha + 1
End If
Loop
End Sub


Private Sub Worksheet_Activate()
linha = 2
Do Until Sheets("estados").Cells(linha, 1) = ""
cmb_UF.AddItem Sheets("estados").Cells(linha, 1)
linha = linha + 1
Loop
End Sub

Só que na CATEGORIA ela repete os estados e fica errado.
O que tenho que fazer pra aparecer a lista de estados certinha?
Anexo a planilha.
Obrigado!