Limpar celulas selecionadas

editar

Olá Conrado, muito obrigado meu amigo pela atenção, mas não funcionou. Talvez ou passo tela declaro de forma errada. Veja a minha declaração:

Sub LimparCelulas

Worksheets("Orcamento").Range("B14:J33").ClearContents

End Sub

Mensagem de erro: "Erro em tempo de execução do BASIC. Procedimento Sub ou procedimento de Function não definido."

Vou tentar te passar o que eu estou buscando fazer. Já consegui fazer um filtro com macros, conforme segue abaixo.

Sub AplicarFiltroAvancado

Dim oDoc As Object, oPlanAtiva As Object, oPlan1 As Object, oPlan2 As Object, oPlan3 As Object
Dim oIntervalo As Object, oCriterios As Object
Dim oDestino As Object, oFiltro As Object, oFiltroVazio As Object

oDoc = ThisComponent
   oPlanAtiva = oDoc.CurrentController.ActiveSheet
   oPlan1 = oDoc.Sheets.getByName("Orcamento")
   oPlan2 = oDoc.Sheets.getByName( "Consulta" )
   oPlan3 = oDoc.Sheets.getByName("Acessorios")

   oFiltroVazio = oPlan3.createFilterDescriptor( True )
   oPlan3.Filter( oFiltroVazio )

   oIntervalo = oPlan3.getCellRangeByName( "B5:F1048576" )
   oCriterios = oPlan3.getCellRangeByName( "E2:E3" )
   oDestino = oPlan2.getCellRangeByName( "A1" )

   oFiltro = oCriterios.createFilterDescriptorByObject( oIntervalo )
   oFiltro.CopyOutputData = True
   oFiltro.OutputPosition = oDestino.CellAddress
   oFiltro.ContainsHeader = True

   'Filtrar'
   oIntervalo.Filter( oFiltro )


End Sub

O filtro está funcionando corretamente. Agora eu preciso que, ao acionar o filtro as células (B14:J33) da planilha ("Orcamento") sejam limpas.

Grato pela ajuda!