Vê se ajuda.

Qualquer coisa da o grito.
Abraço

Bernardo,
Em Recontagem, Na linha abaixo, deu erro de Variável não definida
UltL = wsBD.Cells(Rows.Count, 2).End(xlUp).Row + 1

Realmente esqueci do "set", aqui não apresentou o erro de imediato.
Mas altera a sub toda por essa:

Sub Recontagem()
Dim wsBD    As Worksheet
Dim i       As Long
Dim UltL    As Long

Set wsBD = ThisWorkbook.Worksheets("BD-Historico")
UltL = wsBD.Cells(Rows.Count, 2).End(xlUp).Row + 1

    For i = 2 To UltL
        If Not wsBD.Cells(i, 2) = Empty Then
             wsBD.Cells(i, 5) = i - 4
        End If
    Next
End Sub

Qualquer coisa da o grito.
Abraço

Tamo quase lá!! Rsss
Mas ainda, apenas na coluna Linha da Listview, não está atualizando...
Aguardo!

Segue anexo.

Bernardo, resolvido!!!
Brigadaumm amigão, ficou perfeito!! Vc manja muiito kra, Parabéns e Tdo de baum pra vc!!!!
Agora vai essa bagaçaaa! Kkkkkk

Bernardo,
Só mais um detalhe, na Coluna E4 preciso que fique Lin. e não 0.
Não to conseguindo localizar a referencia no código pra mudar isso.
Grato a sua paciencia. Rssss

Na sub RECONTAGEM substitui isso:

    For i = 2 To UltL

por isso:

    For i = 5 To UltL

Qualquer coisa da o grito.
Abraço

Perfeito!!
Obrigado!!

Bom dia Bernardo, Blz!
Seguinte, na minha planilha original, inicialmente já está com + de 3.000 linhas. Acontece que ao Incluir, Atualizar ou Excluir, o processo é um pouco demorado. Parece até que está travado. Gostaria de colocar uma Barra de Progresso durante estes processos, mas não to conseguindo, apesar de já ter feito algumas pesquisas sobre o assunto.
Por gentileza, vc, ou os amigos aee, podem me ajudar com isso??
Grato.

Cara, testa primeiro com esse código.

Qualquer coisa da o grito.
Abraço

Bernardo, bom dia,tdo bom!

Bem, com essa nova alteração no código, melhorou e muito o tempo de processo...
Mas recorro novamente à sua ajuda pq agora, ao fazer a adaptação na minha planilha real, está dando Erro
ao Incluir novo histórico na: Sub Recontagem()

wsBD.Range("E5").AutoFill Destination:=Range("E5:E" & UltL), Type:=xlFillSeries

Msg é essa: O método Autofill da classe Range falhou

Já o btAtualizar, btExcluir e btLimpar, até funcionando, porém, ao final do processo, a ListView1 fica toda
em branco, só voltando os dados, qdo clico em um registro qualquer da ListView3.

Mas creio que, resolvendo o erro da Autofill, o resto funcionará de boa! Rss
Tem solução isso, dá pra resolver?

Aguardo e mais uma vez obrigado.
Att, Carlos

Cara, estranho que aqui está funcionando normalmente.

Tem como enviar a planilha que adaptou?

Puts, e agora! Tentei tbém, com um botão chamaForm dentro da plan real, abrir este seu Userform (Como uma nova janela) e deu certo! Mas tbém, o botão Incluir, deu a msm msg de erro.
Concerteza é alguma incompatibilidade com os outros códigos que já tenho aki, apesar de já ter feito uma limpeza nos códigos, e msm assim continua a msg de erro.