Sub Test()
    ' Создаём временную переменную TmpCell для сохранения ячейки, как объект типа Range
    Dim TmpCell As Range
    ' Запоминаем активную ячейку
    Set TmpCell = ActiveCell
    ' Выбираем ячейку на 3 столбца правее
    TmpCell.Offset( 0 ,  3 ).Select
    
    Dim xPosition As Long
    Dim yPosition As Long
    Dim Val As Variant
    
    ' Если нужно узнать какую-либо информацию о сохранённой ячейке, всегда можно обратиться к объекту TmpCell
    xPosition = TmpCell.Column
    yPosition = TmpCell.Row
    Val = TmpCell.Value
    ' В диалоге отображаем некоторую информацию о сохранённой ячейке или делаем, что-то другое...
    MsgBox "Столбец: " & xPosition & Chr( 13 ) & "Строка: " & yPosition & Chr( 13 ) & "Значение: " & Val
End Sub