Aneudys Martinez respondió:
Si los ceros están dado por una fórmula Yo lo haría así un do while de la celda activa Sub buscar_devolver_solicitar() Sheets("sheet1").Select Range("i5").Select Do While ActiveCell <> "" If ActiveCell.Value <> "0" Then Range(ActiveCell.Offset(0,...