Oops, apesadumbrado, en vez de claro, usted debe poner ClearContents, habría podido verlo de su pregunta.
DeleteRows secundario ()
LR dévil, i como de largo
WS dévil como hoja de trabajo
Fijar WS = ThisWorkbook.Worksheets (“TaskTracker”)
LR = WS. Gama (“A65536”). Extremo (xlUp). Fila
Para i = LR - 1 12 al paso -1
WS. Células (i, 1).EntireRow.Delete
Después i
Para i = 11 7 al paso -1
WS. Células (i, 1).EntireRow.ClearContents
Después i
Submarino del extremo