Como tutor de software, estou surpreso que você ainda não saiba como fazer isso (ou esta pergunta é apenas um teste?) No entanto, o código a seguir pode ajudar:
Sub Macro1()
Columns("B:B").Select
Selection.AutoFilter
ActiveSheet.Range("B:B").AutoFilter Field:=1, Criteria1:="0"
Selection.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
ActiveSheet.Range("B:B").AutoFilter Field:=1
Selection.AutoFilter
Range("B1").Select
End Sub
mas eu recomendo que (i) você ative o gravador de macros e crie a macro para você e (ii) tome muito cuidado com qualquer macro não criada por você - em particular uma que contenha 'Deletar' nela!
Observe que isso exclui Row1
, então talvez seja melhor inserir uma linha na parte superior primeiro - também exclui as linhas nas quais "0" não é derivado de uma fórmula.