fejoal respondió:
OK, me engancho en tu procedimiento en el momento que encuentra una celda con cero. Así debería seguir: If ActiveCell.Value = 0 Then Volver = ActiveCell.Address Do While ActiveCell.Value = 0 ActiveCell.Offset(0, -1).Select If ActiveCell.Column = 1...