Boa noite!!

Seja mais especifico, qual é a planilha em seu anexo, guia "pedido"???

Caso seja ela, Da célula 31 a 34 tem informação..

Precisamos de mais dados

Conforme o Alexandre comentou, você não foi expecifico para uma resposta mais concreta, mas a rotina abaixo pode ser adaptada para qualquer aba.

Na mesma definimos a Linha Inicial, depois capturamos a última linha preenchida, definimos o range e Deletamos as Linhas a partir da Linha Inicial até a ultima preenchida.

    Sub DeletarLinhaInicialFinal()
        Dim sRange As Range
        Dim sRowInicio As Long
        Dim FinalRow As Long
       
        'Verifica a última linha preenchida
        FinalRow = Range("A65536").End(xlUp).Row
       
        'Linha Inicial - Linha 5
        sRowInicio = 5
       
        'Define o Range Linha Inicial e Linha Final
        Set sRange = Range("A" & sRowInicio & ":A" & FinalRow)
           
        'Deletamos as linhas definidas acima
        sRange.EntireRow.Delete

    End Sub

[]s

Bom dia, é sim na guia pedido, sabendo que abaixo da listagem de pedido tenho as condições de venda, visto que o codigo acima é para a ultima linha escrita, acho que nao serviria.

Grato

Tente assim:

Sub Clear()
Plan3.Range("A17:J29").ClearContents
End Sub

Bom dia!!

Nos ajude a te ajudar, fale qual é o intervalo que será afetado pela rotina!!

Descreva passo a passo!

Att

Bom dia!!

Nos ajude a te ajudar, fale qual é o intervalo que será afetado pela rotina!!

Descreva passo a passo!

Att

AI É QUE TÁ, NÃO TEM UM INTERVALO CERTO, POSSO TER 5 PEDIDOS COMO POSSO TER 20 POR EXEMPLO.

GRATO

PERDÃO, POSSO TER 5 ITENS OU 20 POR EXEMPLO.

Bom dia!!
Então simule uma grande quantidade de itens no pedido!

Att

Segue anexo plan 'pedido' com varios itens.

Grato

Bom dia!!

Como a postagem do Mauro , eu apenas cópiei a ideia dele.

Para não sobre carregar o fórum resolvi postar o arquivo no sendspace.
http://www.sendspace.com/file/01osct

Leia
Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

Bom dia, mas se eu só tiver 3 itens?
note que quando eu clico, ele apaga também minha informações gerais de venda.

Grato

Bom dia!!

Então sem querer ofender, você precisa criar um padrão cara, se o código não pode ter um limite de linhas (por conta do itens que pode variar), e você tem informações em baixo, que não pode ser desfigurada, fica estranho resolver, me parece desnecessário, fazer exatamente da forma como quer.

Você tem que aprender a ceder, e ser criativo, você pode ter esta (que fica abaixo do pedido), informação em outro luga, ou você não pode ter em outro lugar?

Não poderia você gravar um macro para colar essa informação no rodapé de seu pedido?, somente quem criou a planilha e tem necessidade de usa-la, é que sabe como deve funcionar. somente nos ajudando é poderemos te ajudar

Att

Uma pergunta,
É necessario deletar a linha ou somente apagar as informações de uma range?? Por exemplo:Range("A17:J38").clearContents

eduardo, considerando que sempre haverá uma linha em "BRANCO" antes da linha "Valor Total da Obra:", utilize a rotina abaixo, é praticamente a mesma, a diferença é que em vez e capturar a última linha preenchida, capturamos a última antes da primeira linha em branco :

    Sub DeletarLinhasPedido()
        Dim sRange As Range
        Dim sRowInicio As Long
        Dim FinalRow As Long
           
        'Verifica a última linha preenchida antes da Linha em Branco
        FinalRow = Worksheets("pedido").Range("A17").End(xlDown).Row
            
        'Linha Inicial - Linha 17
            sRowInicio = 17
           
        'Define o Range Linha Inicial e Linha Final
            Set sRange = Range("A" & sRowInicio & ":A" & FinalRow)
               
        'Nesta instrução Limpamos o conteudo somente das
        'linhas definidas acima
            sRange.EntireRow.ClearContents
            
        'Nesta instrução abaixo Deletamos
        'as linhas definidas acima
            'sRange.EntireRow.Delete
        
    End Sub

Veja a obs nas Linhas para Deletar as Linhas ou somente Limpar o Conteúdo.

Faça os testes e veja se agora está correto.