В данном примере(взятом с учебника) находим на листе левый верхний (а нужен нижний правый) угол из всех ячеек с введенными данными и в эту ячейку записываем слово "lef up".

Помогите с ликбезом, пожалуйста.
Понимаю, что можно вытянуть макс. строку и колонку через строку адреса "$C$5:$J$48", но не хочется возиться с треобразованием строки.
Может есть более элегантный способ?
Sub Test()
' объект Range
Dim cur_range As Range
' Весь лист
With ActiveSheet
Set cur_range = .UsedRange
Debug.Print cur_range.Address
' у меня печатает $C$5:$J$48
Dim y_min As Integer
' минимальная колонка, а нужна максимальная???
y_min = cur_range.Columns.Column
Dim x_min As Integer
' минимальная строка, а нужна максимальная???
x_min = cur_range.Rows.Row
Set cur_range = Range(Cells(x_min, y_min), Cells(x_min, y_min))
cur_range = "lef up"
End With
End Sub