Macro para quitar filas hasta un limite, y que lo que este por debajo de ese limite no lo borre.

Hice este código para quitar filas, dado que tengo un código que agrega muy bien filas. El código para retirar filas es el siguiente:

  Dim i As Integer
  Dim CurrentSheet As Object
  i = 15
  While (Cells(i, 1) <> "")
  i = i + 1
  Wend
   Range("A" & i). EntireRow.Delete

Mi problema radica en lo siguiente, y para ello les comparto la siguiente imagen para ilustrar tal problema. Cuando oprimo el botón "quitar filas" hasta la fila que se indica en el código (fila #15), se borran todas las filas agregas después de este número o sea el 15. Pero cuando sigo oprimiendo el botón "quitar filas", este comando "se come" las filas que están más adelante, es decir, en este caso las filas de la tabla vacía que se aprecia en la imagen, hasta no quedar ninguna.

Por ende, requiero la asesoría pertinente en el código para quitar filas, pues necesito que esa tabla que esta vacía por el momento, tenga información proveniente de la tabla de arriba.

Uso EXCEL 2016 para MAC.

Cordialmente, Leonardo Sánchez.

Añade tu respuesta

Haz clic para o