Resolvi =P

Troquei essa parte do código no Botão Excluir;

Dim resposta As String

linha = list_orgao.ListIndex + 2
resposta = MsgBox("O cadastro será excluído. Confirma a exclusão?", vbYesNo, "")
        
        If resposta = vbYes Then

        
        Worksheets("ORGAO").Rows(linha).Delete

Por essa;

Dim plan As Worksheet
 Set plan = Sheets("ORGAO")
 
 Dim codigo As Integer
 Dim linha As Integer
 
 linha = 2
 codigo = tbx_codigoorgao.Text
 
 plan.Select
 
 linha = plan.Range("A:A").Find(codigo).Row
 
 Dim resposta As String
 
 resposta = MsgBox("O registro será excluído. Confirma a exclusão?", vbYesNo)
 
 If resposta = vbYes Then
 
 ActiveCell.Rows("1:1").EntireRow.Select
 Selection.Delete Shift:=xlUp
 ActiveCell.Select

De qualquer forma fica aí pra quem tiver o mesmo problema um dia...