Как удалить SpecialCells(xlLastCell) ? - VBA

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

Поясню на примере

Sub ss()
    Cells(10, 5) = "1"
    Cells.Delete Shift:=xlUp
    Cells.ClearContents
    Debug.Print Cells.SpecialCells(xlLastCell).Address
    Debug.Print ActiveSheet.UsedRange.Address
    'ActiveSheet.UsedRange = "used"
End Sub

Выдаст E10. Хочу А1. Чем же удаляется эта "последняя ячейка"?

Решение задачи: «Как удалить SpecialCells(xlLastCell) ?»

textual
                            Листинг программы 
                        

                            Sub ss()
    Cells(10, 5) = "1"
    Cells.Delete shift:=xlUp
    With Cells
        .Clear
        Debug.Print .SpecialCells(xlCellTypeLastCell).Address
        Debug.Print ActiveSheet.UsedRange.Address
    End With
End Sub
                        