Boa noite!!

Tente assim...

Sub DeleteLinha()

    Sheets("Relatório").Range("A11:A200").Select
    Selection.EntireRow.Delete
    
    
End Sub

Boa noite!!!

Veja o anexo COMPACTADO....Não se esqueça da mãozinha!!

Por favor faça a compactação de seus anexos.

Umas obs quanto ao código postado pelo Alexandre, o mesmo de fato excluirá as linhas :

Então só para um melhor entendimento :

Nem sempre precisamos selecionar o Range para efetuarmos algumas ações, neste caso a instrução abaixo tem o mesmo efeito e economizamos uma linha(uma ação a menos na execução do código)

Substituimos estas duas linhas :
Sheets("Relatório").Range("A11:A200").Select
Selection.EntireRow.Delete
Por esta :
Sheets("Relatório").Range("A11:A200").EntireRow.Delete
Ok, excluimos as linhas, mas o incoveniente de utilizar a instrução acima é que,se as linhas teem alguns tipos de formatação, as mesmas tambem se vão, e ao fazermos novos lançamentos teremos dde formata-las novamente;

Então se queremos simplesmente LIMPAR o conteúdo das Células preservando a formatação, podemos utilizar a instrução abaixo :
Sheets("Relatório").Range("A11:A200").ClearContents
E no seu exemplo, desde que as demais celulas não contenham Formulas, alteramos o Range :
("A11:A200") para ("A11:H200")

{]s

Obrigado alexandrevba e desculpe por esquecer de compactar os anexos!

Mauro Coutinho, esta é uma boa também! as duas formas apresentadas, se adequam ao que eu preciso, visto que este relatorio se trata de uma copia de outras planilhas, assim ja vem com formatacao!

Obrigado pela atencao!!
Valeu!!