Application.Trim Получить последнюю ячейку в строке

Application.Trim
пример: Selection = Application.Trim(Selection)

Cells.SpecialCells(xlLastCell).Row