Sub apagar_a_ultima_celula_da_coluna_D_nao_testado()
'PS: poste sempre seu anexo
Cells(Rows.Count, "D").End(Xlup).Row.ClearContents
End Sub

gtsalikis, Valeu pela resposta, deixei muito vago a minha dúvida.

Estou tentando montar um programinha para facilitar. Estou buscando informação em tudo que é lugar. Não tem um padrão de código.

Na Aba "pedido4" tem o botão para o formulário o botão verde, no formulário, seria para apagar a última linha da aba "teste".

Como disse tenho várias dúvidas, mas vou item por item para não ficar muito confuso.

Segue arquivo em anexo.

Valeu

Então, basta especificar a planilha antes de apagar:

Sub apagar_a_ultima_celula_da_coluna_D_agora_testado()
With Sheets("teste")
.Cells(Rows.Count, "D").End(xlUp).ClearContents
End With
End Sub

Gtsalikis,

Deu certo apagou a última coluna preenchida.

Fiz uma maneira que apagasse as colunas da mesma linha seguidas (E,F,G,H I).

Eu precisaria que fosse definida celula de ínicio"D10" e a última "D498".

Sub apagar_linha_listagem()

With Sheets("teste")
.Cells(Rows.Count, "D").End(xlUp).Activate
.Cells(Rows.Count, "D").End(xlUp).ClearContents
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
ActiveCell.Offset(0, 3).ClearContents
ActiveCell.Offset(0, 4).ClearContents
ActiveCell.Offset(0, 5).ClearContents
ActiveCell.Offset(0, 7).ClearContents
ActiveCell.Offset(0, 19).ClearContents
ActiveCell.Offset(0, -1).ClearContents

End With
 
End Sub

Isso foi o que eu entendi.

Sub Apagar_3_a_revanche_nao_testado()

Application.ScreenUpdating = False

Dim intervalo   As Range
Dim celula      As Range

With Sheets("teste")
    Set intervalo = .Range("D10:D498")
    Set celula = .Range("D498").End(xlUp)
    
    If Not Intersect(celula, intervalo) Is Nothing Then Exit Sub
    
    .Range(.Cells(celula.Row, "C"), .Cells(celula.Row, "I")).ClearContents
    .Cells(celula.Row, "K").ClearContents
    .Cells(celula.Row, "W").ClearContents
    
End With

Application.ScreenUpdating = True

MsgBox "Por favor, se a mensagem ajudou, clique na mãozinha como agradecimento."

End Sub

Bom dia,

Não deu certo.

Em anexo está o arquivo.

Pelo que está descrito, está certo as celulas para apagar.

Tem o botão do código que montei, só que ele vai apagando tudo sem limite.

Criei também outro botão com o código novo.

Abraços

Testei na tua planilha e fiz um pequeno ajuste, pois eu tinha cometido um engano em uma linha do código:

Sub Apagar_3_a_revanche_testado()

Application.ScreenUpdating = False

Dim intervalo   As Range
Dim celula      As Range

With Sheets("Teste")
    Set intervalo = .Range("D10:D498")
    Set celula = .Range("D498").End(xlUp)
    
    If Intersect(celula, intervalo) Is Nothing Then Exit Sub
    
    .Range(.Cells(celula.Row, "C"), .Cells(celula.Row, "I")).ClearContents
    .Cells(celula.Row, "K").ClearContents
    .Cells(celula.Row, "W").ClearContents
    
End With

Application.ScreenUpdating = True

MsgBox "Por favor, se a mensagem ajudou, clique na mãozinha como agradecimento."

End Sub

Agora deu certinho... tinha um não no lugar errado... rsss

Valeu, vou tentar colocar na outra planilha.

Tenho mais dúvidas, mas abro outro tópico.

Abraços