Eduard Caballero respondió:
Prueba esto. Creo que hace lo que quieres Sheets(1).Range("A1").Select If ActiveCell = "" Then MsgBox "No hay datos en A1" Exit Sub End If Selection.Cut linea: For i = 1 To 10 Cells(9 + n, i + 4).Select If Cells(9 + n, i + 4) = "" Then...