Как назначить адрес текущей ячейки переменной Range?

Question

Я запутался, как обновить переменную Range с текущей ячейкой. Скажем, у меня есть следующее:

Dim site_curr_position As Range
Set site_curr_position = Worksheets("newsheet").Range("D14")
Set site_curr_position = Worksheets("newsheet").Range("E14")
Worksheets("newsheet").Range("A4").Select
'Set site_curr_position = ?

Как узнать диапазон ячейки, в которой теперь находится курсор?