silva_jmp, Boa noite! Segue seu arquivo com correções. 38.zip

Por gentileza, vote positivamente clicando na mãozinha existente no canto superior direito da tela próximo da ferramenta Citar.

É... acho que era a planilha errada. tst-shift.zip

Ok. Segue correção. É que o entendimento por escrito é complexo. Tem que ser assim mesmo para irmos afinando o entendimento. tst-shift.zip

Obrigado Edson.

Ok. Segue nova versão adaptada para várias linhas. tst-shift.zip

victorsam, Bom Dia! Veja se é assim. Transição de Userform.zip

johnsmith, Bom Dia! Peço que vote positivamente no tópico, clicando na mãozinha ao lado da ferramenta Citar no canto superior direito da tela. Quan...

johnsmith, Boa Noite! Segue seu arquivo após a inserção de códigos de VBA que faz o que você está querendo: Criar um histórico linear do que for dig...

ederluis, Bom Dia! Veja se é assim. Exempo Planilha.zip

tadeuz, Selecione a célula que quer apagar tudo, vá na Guia Inicio/Painel Edição/clique na pequena seta do botão Limpar e escolha o item Limpar Tudo....

Gilmar, Bom Dia! Excelente código! Parabéns.

Samuca, Boa Noite! Disponibilize o arquivo compactado aqui para podermos analisar.

ederluis, Boa Tarde! Compacte seu arquivo com ZIP e anexe o mesmo aqui.

Bom Dia! Veja se esse código trabalha mais rápido: Sub ExcluirLinhas() Dim i As Long For i = 68 To 1 Step -1 If Sheets("PAME&q...