villaju

O.K. Pega la siguiente macro, si no te entendí mal, es ésto lo que quieres: Sub eliminarfilascero() Range("S14").Activate While ActiveCell.Value <> "" If ActiveCell.Value = 0 Then Selection.EntireRow.Delete ActiveCell.Offset(1, 0).Activate Else...