Marchelo El Ca Po

Valero Angel Serrano Mercadal respondió: No se entiende muy bien lo que quieres decir, pero mirta a ver si es esto lo que quieres decir. Sub LIBRO_I() Sheets("HOJA T"). Activate Range("a4"). Activate Do While ActiveCell <> Empty Select Case ActiveCell Case 1, 100, 1000 ActiveCell.Offset(0,...