Удаление строк со сдвигом вверх

[dead_rat]

Спасибо, Hugo121!
так и сделал, через макрос. Публикую текст, может кому из новичков пригодится:

Sub Перенос()
Sheets("перенос").Select
Worksheets("перенос").Range("A1:A10 000").Copy _
Destination:=Worksheets("очистка"). Range("A1")
Sheets("очистка").Select
Selection.SpecialCells(xlCellTypeBl anks).Delete (xlShiftUp)
Worksheets("очистка").Range("A1:A10 000").Copy _
Destination:=Worksheets("перенос"). Range("A1")
Range("очистка!A1:A10000").Select
Selection.ClearContents
End Sub

Обьяснение: лист "перенос" - тот, в котором хранятся данные. Лист "очистка" - буферный лист, в который копируем данные из "переноса", там они очищаются от пустых строк и вставляются обратно. Потом лист "очистка" очищается от данных, чтобы в следующий раз не добавлялся "мусор" в конце диапазона.
(пардон если элементарщину пишу, но может кому-то это сэкономит чуток времени)

Спасибо и Вам, kuklp, на досуге попробую.