LEdu, troque o código evento change da COMBO_TAG para este:

Private Sub Combo_TAG_Change()
    
    If Combo_TAG.Text = vbNullString Then Exit Sub
    With Cad_EQTO
        Me.Text_Tipo_Eqto = WorksheetFunction.VLookup(Combo_TAG.Text, .Range("b2:ab65536"), 2, 0)
        Me.Text_Desc_Eqto = WorksheetFunction.VLookup(Combo_TAG.Text, .Range("b2:ab65536"), 3, 0)
    End With
        
End Sub

Tudo explicadinho nesse video:
https://youtu.be/h62LqvT2uZs

Fernando, Obrigado pela atenção, eu troquei o código de evento change da COMBO_TAG porem o erro permanece.

favor colocar seu novo arquivo com o ajuste. Tenho plena certeza que, se permanece, o erro agora é outro...

Ledu, se fizer o que o Fernando sugeriu parou de dar o erro aqui.

Eu troquei o código novamente, na aba tela inicial e clicar em tela principaol, abrira o painel de controle, nesse painel ao cadstrar o primeiro equipamento ele inicia na linha 34, isso é um erro que ainda não identifiquei, após cadastrar esse equipamento, sair, clicar na aba cd. plano preventivo, e identificar o equipamento cadastrado"1", ao clicar nele o erro 1004 permanece.
segue arquivo com ajuste.

...ele inicia na linha 34, isso é um erro que ainda não...

Isso ocorre pois esta utilizando o UsedRange (i = Cad_EQTO.UsedRange.Rows.Count + 1), para determinar a ultima linha preenchida.
UsedRange mesmo apos deletar os dados de uma linha continua considerando-a como parte utilizada da palnilha. Para evitar isso e necessario exluir a linha como um todo e salvar a planiha, para que a nova area utilizada seja considerada.
De preferencia a esta sintaxe --> i = Cad_EQTO.Cells(Cells.Rows.Count, "A").End(xlUp).Row+1.

...ao clicar nele o erro 1004 permanece...

Se o TAG procurado for um valor numerico; que é o que aparenta ser, ao efetuar o Vlookup utilizando como base o valor do combo, este e passado como texto/string assim ira gerar erro.
experimente : WorksheetFunction.VLookup(Val(Combo_TAG.Value), .Range("b2:ab65536"), 2, 0)