Bom dia!!
Eu não tive problema, se é que eu entendi sua dúvida.

ID MÊS DIA HISTORICO CODIGO PARCELA VALOR TIPO STATUS
1 01/2017 14/12 RECEITA E DESPESAS 1007 99,45 CCT L
2 01/2017 30/10 RECEITA E DESPESAS 7003 03/10 35,99 CCT L
3 01/2017 05/01 RECEITA E DESPESAS 5007 28,00 DS L
4 01/2017 05/11 RECEITA E DESPESAS 6003 02/02 54,90 CVS L
5 01/2017 03/00 KDÇSKDSDÇSK 900 120,00 DS L
6 01/2017 05/11 teste alevba 654 02/fev 324,00 CCT L

Att

Alexandre. Bom dia.
Fiz mais alguns lançamentos ate o mês 05/2017 quando vou fazer um lançamento do mês 01/2017, o código está classificando porém não está carregando os dados a partir da coluna C (fica vazio). Faz um teste com o mês 02/2017.
ID MÊS DIA HISTORICO CODIGO PARCELA VALOR TIPO STATUS
1 01/2017 14/12 RECEITA E DESPESAS 1007 99,45 CCT L
2 01/2017 30/10 RECEITA E DESPESAS 7003 03/10 35,99 CCT L
3 01/2017 05/01 RECEITA E DESPESAS 5007 28,00 DS L
4 01/2017 05/11 RECEITA E DESPESAS 6003 02/02 54,90 CVS L
5 01/2017 12/11 RECEITA E DESPESAS 5005 02/06 191,45 CCT L
6 01/2017 01/01 LDLDKD 6000 11,00 DS L
7 01/2017
8 02/2017 15/01 LDLDKSPSDKPDKDSP 6010 133,00 DS L
9 03/2017 03/03 KDÇSKDSDÇSK 900 120,00 DS L
9 04/2017 04/04 LDKDSDKD 900 300,00 BE L
11 05/2017 10/01 KDKDKDKS 903 23,00 BE L

Bom dia!!

Desculpe agora que eu notei que você tem o tal classificar embutido.

Porque você precisa classificar os dados? (só pra eu entender...)

Remova o código abaixo!!!!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Worksheets(1 - DADOS).Range("B2:I5000"), Target) Is Nothing) Then
        [A2:A5000].Sort Key1:=[A2], Order1:=xlAscending
        DoSort
    End If
End Sub

Use o comando CALL para chamar sua rotina DoSort, após salvar os dados.

Private Sub BtCadastro_Click()
Dim linha As Long

linha = Sheets("1-DADOS").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
Plan6.Cells(linha, 1).Value = Me.txt_cod.Value
Plan6.Cells(linha, 2).Value = cb_mes.Value
Plan6.Cells(linha, 3).Value = Me.txt_dia.Value
Plan6.Cells(linha, 4).Value = Me.txt_historico.Value
Plan6.Cells(linha, 5).Value = Me.txt_codigo.Value
Plan6.Cells(linha, 6).Value = Me.txt_parcela.Value
Plan6.Cells(linha, 7).Value = CDbl(Me.txt_valor.Value)
Plan6.Cells(linha, 8).Value = Me.txt_tipo.Value
Plan6.Cells(linha, 9).Value = Me.txt_status.Value

cb_mes.Value = Null
Me.txt_dia = Null
Me.txt_historico = Null
Me.txt_codigo = Null
Me.txt_parcela = Null
Me.txt_valor = Null
Me.txt_tipo = Null
Me.txt_status = Null

'registro = Sheets("1-DADOS").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row - 2
'lbl_registro.Caption = registro

mensagem = MsgBox("Dados cadastrados com sucesso")
', vbInformation, ":: Cadastro ::")
'MsgBox linha
Call DoSort
End Sub

Att

Muito Obrigado!!!

Fiz assim e funcionou - Sort B2:I5000 e Sort1 A2:A5000 e usei dois comandos Call

Att.
Divino Rodrigues

Boa tarde!!

Eu fico feliz em ajudar, precisando é só falar.

Att