Outro apagar linhas da planilha com combobox

[Claudio Teo]

desde ja agradeço atodos , sou iniciante em vba ,o codigo que foi utilizado somente apaga uma linha por vez,gostaria se alguem tem  essa solução para apagar todas as linhas de uma só vez utilizando o critério da coluna pedido. 

 

sub atualizacombo()
application.screenupdating = false
dim w as worksheet
set w = sheets("plan1")
w.select
w.range("c2").select

'apaga o  conteudo da caixa de seleção
sheets("plan1").combobox1.clear

do while activecell.value <> ""
'adiciona o valor da celula atual

'ao combobox1 da planilha cadastro 1
sheets("plan1").combobox1.additem activecell.value

'descer para a próxima celula
activecell.offset(1, o).select


loop

application.screenupdating = true

end sub