seria algo assim

    Sheets("Planilha1").Range("A1:A200").Select
    Selection.EntireRow.Delete

Mas o problema é que a linha A200 nunca é sempre a ultima

Bom dia!!

Esse exemplo com adaptação pode te ajudar....

Option Explicit
 
Sub Exempo_AleVBA()
    Dim NumRows, NumCols, I, J As Double
     
    NumRows = ActiveCell.SpecialCells(xlLastCell).Row
    NumCols = ActiveCell.SpecialCells(xlLastCell).Column
     
    For I = 1 To NumRows
        For J = 1 To NumCols
            If Left(Cells(I, J).Formula, 1) <> "=" Then
                Cells(I, J).ClearContents
            End If
        Next J
    Next I
End Sub

Tente também

Sub Deletar_AleVBA()
    On Error Resume Next
    Columns("A").SpecialCells(xlCellTypeConstants).EntireRow.Delete
    On Error GoTo 0
End Sub

Bom dia!!

Lembre se também de usar um poderoso e simples recurso (ir para especial ), use a tecla F5

Veja mais sobre em:
http://jldexcelsp.blogspot.com.br/2010/ ... al-de.html
http://www.expresstraining.com.br/index ... cle&id=153

Bom dia!!

Esse exemplo com adaptação pode te ajudar....

Option Explicit
 
Sub Exempo_AleVBA()
    Dim NumRows, NumCols, I, J As Double
     
    NumRows = ActiveCell.SpecialCells(xlLastCell).Row
    NumCols = ActiveCell.SpecialCells(xlLastCell).Column
     
    For I = 1 To NumRows
        For J = 1 To NumCols
            If Left(Cells(I, J).Formula, 1) <> "=" Then
                Cells(I, J).ClearContents
            End If
        Next J
    Next I
End Sub

Tente também

Sub Deletar_AleVBA()
    On Error Resume Next
    Columns("A").SpecialCells(xlCellTypeConstants).EntireRow.Delete
    On Error GoTo 0
End Sub

Boa noite alexandrevba,

Infelizmente nem um nem o outro code resolvem a situaçao

o primeiro da um erro que é
"Não é possivel alterar uma parte de uma celula unida."

E o segundo só apaga a linha que nao é suposto apagar que é a que tem as formulas

Será que me podem ajudar com este problema?? desde ja obrigado pela atençao

Boa noite!!

Sem um arquivo modelo compactado fica difícil!!!!!!!!

Afinal a falta de detalhes, torna árduo o retorno esperado, pois não foi mencionado células mescladas!!!

Att

vou tratar ja disso e posto ja aqui

Aguarde 2m por favor

Aqui esta...

Ja tem inserido umas quantas respostas (so para o Exemplo)

O que pretendo e que apague todas as linhas inseridas desde a linha 7 ate uma antes da que diz Média que essa vai ser sempre movida para baixo sempre que se insere novas respostas.

Alguma duvida (em nao entender o que tou pedindo) por favor diga

Obrigado pela atencao

alexandrevba Obrigado por todo o seu tempo tenha sido pouco ou muito... muito obrigado pela atencao pois ja consegui em outro forum o code para deletar todas as linhas ate a linha que tem as formulas

Muito obrigado na mesma

Boa noite!!

Ótimo que conseguiu resolver, então marque sua postagem como resolvido e poste a solução pois outros também poderam precisar, abraços e at+++

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att

Boa noite!!

Ótimo que conseguiu resolver, então marque sua postagem como resolvido e poste a solução pois outros também poderam precisar, abraços e at+++

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att

Fica entao aqui o Code para que quem quiser ou precisar

Private Sub CommandButton1_Click()
 ActiveSheet.Unprotect 
    Dim l As Long
   
    For l = 7 To RowLast(Columns("A"))
        If Cells(l, "B").HasFormula Then
            Rows(7).Resize(l - 7).Delete
            Exit For
        End If
    Next l
ActiveSheet.Protect
End Sub
Function RowLast(rng As Range) As Long
    With rng
        On Error Resume Next
        RowLast = .Find(What:="*" _
          , After:=.Cells(1) _
          , SearchDirection:=xlPrevious _
          , SearchOrder:=xlByColumns _
          , LookIn:=xlFormulas).Row
        If RowLast = 0 Then RowLast = rng.Cells(1).Row
    End With
End Function

Code by benzadeus

Obrigado benzadeus