VBA Excel содержимое Копирование ячейки в другую через колонку и строку смещения

Question

Вот мой код

Sub A_Copy_To_Prior_Row_column() 
' 
' A_Copy_To_Prior_Row_column Macro 
' 

' 
    Application.CutCopyMode = False 
    Selection.Copy 
    Range("R183").Select 
    ActiveSheet.Paste 
End Sub 

Где R183 мне нужно, чтобы не конкретная ячейка, а ячейка на основе минус 1 строки, и столбцы +17 из выбранных/выделенной ячейки, я хочу, чтобы скопировать

Answer 1

activecell.Offset(-1, 17).Value = activecell.Value 

Answer 2

Sub A_Copy_To_Prior_Row_column() 
' 
' A_Copy_To_Prior_Row_column Macro 
' 

' 
    Application.CutCopyMode = False 
    With Selection 
     .Copy 
     ActiveSheet.Paste Destination:=.Offset(-1, 17) 
    End With 
End Sub