VBA Excel удаление строки

Формулировка задачи:

Конструкция Cells(1, 1).SpecialCells(11).Row + 1 определяет 1-ую пустую строку
Макрос с кодом :
Rows(ActiveCell.Row).Select
Selection.ClearContents
Selection.Delete Shift:=xlUp
Удаляет текущую сткоку
Почему после этого Cells(1, 1).SpecialCells(11).Row + 1 работает не правильно
Например было 3-и строки, т.е. первая пустая 4-ая , удалили например 2-ую, но Cells(1, 1).SpecialCells(11).Row + 1 снова показывает 4-ую ???
Хотя если удалять строку не макросом а "руками" то всё ОК.
Почему ?

Решение задачи: «VBA Excel удаление строки»

textual
                            Листинг программы 
                        
                            Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>).SpecialCells(<font color="darkblue"><b>4</b></font>).Row