blackdog2003 respondió:
Esta macro funciona tal y como lo quieres, espero que te sea de gran utilidad, cualquier duda me puedes preguntar nuevamente. Saludos, Blak Dog Sub borrarfilas() For fila = 1 To 65536 If Cells(fila, 4).Value = "0" Then Rows(fila).Delete End If Next...