Я не могу найти хорошее решение, которое будет удалять только строки после последней строки данных, но останавливается на определенной строке. После строки 3000 у меня есть некоторые юридические формулировки, которые необходимо сохранить. Итак, я хочу удалить только все строки с последней строки до строки 3000. Я пробовал это:
On Error Resume Next
Range("A5:A3000").Select
Selection.SpecialCells(x1CellTypeBlanks).EntireRow.Delete
Но это не удаляет строки, вероятно, потому, что он неправильно определяет пустые ячейки.